11/07/2007, 16:53
|
| | | Fecha de Ingreso: mayo-2003
Mensajes: 866
Antigüedad: 22 años Puntos: 0 | |
| Re: funcion existe carpeta remota
para saber si una carpeta remota existe o no lo puedes hacer de esta forma:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Function GetHTML()
Dim objXMLHTTP, strHTML, strURL
strURL="http://www.forosdelweb.com/fdwtheme/images/statusicon/"
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.setRequestHeader "Accept-Language", "sp"
objXMLHTTP.setRequestHeader "Pragma", "no-cache"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.SetRequestHeader "Content-Type", "text/html"
objXMLHTTP.SetRequestHeader "charset", "iso-8859-1"
objXMLHTTP.Send
If objXMLHTTP.Status >= 400 And objXMLHTTP.Status <= 599 Then
Response.write "Existe un error : " & objXMLHTTP.Status & " - " & objXMLHTTP.statusText
Else
Response.write "STATUS OK" & "<BR>"
End If
Set objXMLHTTP = Nothing
End Function
Response.Write GetHTML()
%> |