Comprobar si un archivo existe en el servidor web

Moises
10 de Diciembre del 2008
Hola y gracias de antemano por sus respuestas, estoy queriendo hacer un procedimiento que me verifique si existe el archivo en el servidor web, he encontrado el siguiente metodo:


Public Function VerificarArch(ByVal Arch) As String ' verifica si existe el archivo en el servidor
Dim objXMLHTTP, strURL
Dim Arch2 As String
strURL = Session("RutaBuscar") & "/" & Arch
objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open("GET", strURL, False)
objXMLHTTP.Send()

If objXMLHTTP.Status >= 400 And objXMLHTTP.Status <= 599 Then
Arch2 = "nodisponible"
Else
Arch2 = Arch
End If
objXMLHTTP = Nothing
VerificarArch = Arch2
End Function

este codigo me funciona perfecto en la intranet pero cuando lo veo de internet me da un error en la linea:

objXMLHTTP.Send()

aotro detalle es q mi servidor tiene una IP privada y en el Firewall lo convierte en IP publica.

le agradeceria mucho a quienes pudieran ayudarme con sus comentarios y si pueden ayudarme talvez con otro metodo que compruebe la existencia de un archivo en el servidor web.

si encuentro la respuesta la pondre aqui para que los que la necesiten se puedan veneficiar. Gracias

Moises.