Saber si existe un archivo en directorio virtual

[alexa10]

Aca esta el código:

Código:

Public Function verificarImagen(imagen)
	Dim objXMLHTTP, strHTML, strURL
	strURL="http://directorios/"&imagen&".jpg"
	Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
	objXMLHTTP.Open "GET", strURL, False 
	objXMLHTTP.Send 
	If objXMLHTTP.Status >= 400 And objXMLHTTP.Status <= 599 Then 
		imagen2="nodisponible"
	Else
		imagen2=imagen
	End If 
	Set objXMLHTTP = Nothing	
	verificarImagen=imagen2
End Function