Saludos a todos
Llevo varios días atascado con un problema muy tonto, pero que me trae de cabeza.
Tengo que leer unos ficheros remotos y copiarlos en mi servidor, para ello leeo el fichero lo dejo en una variable y luego creo un fichero en mi servidor y escribo la variable dentro del mismo y ya está.
Me funciona con muchos de ellos pero hay algunos que me da un error y no entiendo el motivo.
Incluso lo puedo ver en pantalla pero no escribirlo proque cuando llamo a file_ES.WriteLine(Text_Ficha_ES) me dice:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos
Por cierto, tengo permisos para escribir y modificar en el directorio
En el siguiente ejemplo adjunto 2 opciones, con la primera veréis que no funciona mientras que con la segunda opción funciona perfectamente.
Código:
path_file = "F:\DATOS\PUBLI06\fichas\" ' Donde dejaremos el fichero
name_file = "prueba.htm" ' Nombre del fichero
' Con esta URL NO Funciona
strURL_ES = "http://prf.icecat.biz/index.cgi?prod_id=301192EK;vendor=LACIE;lang=ES;shopname=OpenICEcat-url#"
' Con esta URL SI Funciona
'strURL_ES = "http://prf.icecat.biz/index.cgi?prod_id=3093B003AA;vendor=CANON;lang=ES;shopname=OpenICEcat-url#"
'
' Leemos el fichero
'
Set HttpObj_ES = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
HttpObj_ES.SetTimeouts 50000, 60000, 10000, 100000
HttpObj_ES.Open "GET", strURL_ES, false
HttpObj_ES.Send()
Text_Ficha_ES = HttpObj_ES.ResponseText
Set HttpObj_ES = Nothing
'
Set fs_ES = CreateObject("Scripting.FileSystemObject") ' Creamos el Fichero
Set file_ES = fs_ES.CreateTextFile(path_file & name_file,True)' Abrimos el Fichero
file_ES.WriteLine(Text_Ficha_ES) ' Escribimos en el fichero
'Response.Write(Text_Ficha_ES) ' Si queremos ver en pantalla
file_ES.Close
Set file_ES = Nothing
Set fs_ES = Nothing
He buscado por el Google y en varios sitios pero no se ver un problema parecido.
Os agradezco mucho una respuesta