FileSystemObject de local a Internet

[Brewster]

Hola.-

¿Existe alguna manera desde mi ordenador local leer un fichero de texto alojado en un servidor?, algo así como.-

Dim fso, texto
set fso=server.createObject("scripting.FileSystemObjec t")
if fso.FileExists("http://www.pepe.com/prueba.txt") then
response.write("Existe")
else
response.write("No")
end if

Gracias.

[JosephFley]

No con el FSO ya que este está limitado al Sistema de Archivos Local del Servidor no fuera de él (excepto unidades de Red mapeadas...).

Creo que eso lo podrías lograr con el objeto MSXML2 pero no podría decirte la forma en este momento pero se que he visto ejemplos de ello.

[locko]

Me costo muchas horas de navegacion y pruebas, pero lo logre aki te dejo el codigo por si te sirve.

Function registros_servidor(strPage, tipo)

Err.Number = 0
miruta = CurDir
nombre = miruta & "\registros_" & tipo & "_servidor.html"

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strPage, False, "", ""
objXMLHTTP.Send
If Err.Number = 0 Then
If objXMLHTTP.Status = 200 Then
GetHTML = objXMLHTTP.responseText
Else
' Modificar para mensaje de pagina no encontrada
GetHTML = "Url incorrecta"
End If
Else
GetHTML = Err.Description
End If

Set fso = CreateObject("Scripting.FileSystemObject")
Set mi_archivo = fso.CreateTextFile(nombre, True)

On Error Resume Next
mi_archivo.Write (GetHTML)
'MsgBox Err.Description & " - " & Err.Description
mi_archivo.Close

End Function