Saber si existe un archivo en una url con VBScript

[HFC]

Hola,

Como saber si existe una archivo teniendo la direccion url? lo he visto con JavaScrip pero lo ocupo con VBScript o con objetos ASP

Estoy cargando imagenes en una pagina html desde otra url, pero ocupo saber si existe la imagen para realizar otro proceso.

gracias de antemano.

[Myakire]

Ocupas usar CreateObject("Microsoft.XMLHTTP"), cuando ejecutas el método .Open, en la propiedad .Status te indica si existe o no el archivo

Prueba por ahí

saludos

Edito

Me dio curiosidad y consulte esta liga y probado el ejemplo de "Does a url exist?" llegué a esto:

Código ASP:

<&#37;
vUrl = "http://ads.yimg.com/a/a/ef/efservicioseneducacion/060210_763420_50x50_couple.jpg"
 
Set objXml = Server.CreateObject("MSXML2.ServerXMLHTTP")
 
objXml.open "GET", vUrl, False
objXml.send
If objXml.Status = 200 OR objXml.Status = 202  Then
   Response.Write "La imagen existe"
Else
   Response.Write "La imagen no existe"  
End If  
Set xmlhttp = Nothing
 
%>
 

Cosa de seguir probando o buscar alguna tabla de valores de la propiedad .Status para abarcar todas las posibilidades

Ahora si, saludos

[HFC]

Excelente!

Codigo probado y funcionando

Gracias MyaKire

[pOrFis]

Muy bueno el codigo, funciona bien!.