Abrir y crear ficheros de texto en el servidor. AYUDA

[Lethe]

Hola a tod@s !

Tengo la siguiente asp que abre y lee un archivo de tipo texto; es decir, .txt para mostarlo un el browser.


<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.OpenTextFile("C:\Inetpub\Prueba\MyFile.txt")
filecontent = wfile.ReadAll

wfile.close
Set wfile=nothing
Set fs=nothing

response.write(filecontent)
%>

El problema es que se tarda demasiado la ejecusión del código, generando Timeout.

Alguien me podría decir que puede estar pasando?

[rickoe]

Hola

prueba así:

Set oSFile = Server.CreateObject("Scripting.FileSystemObject")
Set oTextArch = oSFile.OpenTextFile ("C:\Inetpub\Prueba\MyFile.txt")
cTexto = Trim(oTextArch.ReadAll)
Set OsFile = Nothing
oTextArch.Close
Set oTextArch = Nothing

response.write(cTexto)

Saludos

Rickoe

[Lethe]

Buen intento Rickoe...

Pero, después de varias pruebas el código sigue sin funcionar... me sigue dando el mismo problema. Se tarda demasiado en ejecutarse para que al final lo que se genera es un Timeout.

Al parecer el método: OpenTextFile no funciona o no se está creando la instancia del objeto: TextStream correctamente. En vista de que no estoy muy segura de ésto; ¿existe alguna manera de combrarlo?.

Please Help...

[AlZuwaga]

cuantos MB tiene el archivo de texto?


Digo porque probé con un archivo de texto de 1.114 KB y se demoró casi un minuto. Supongo que uno de por lo menos el doble de tamaño me daría, logicamente, un timeout al sobrepasar los 90 segundos establecidos.

Intentá subir el ScriptTimeOut a ver que ocurre

[Lethe]

dazuaga:

Justamente lo que me impresiona de éste caso es que el archivo txt que estoy utilizando para las pruebas solo ocupa 1 KB; practicamente casi nada.

Sigo sin enterder por qué no funciona...

[Mickel]

Tienes permisos de lectura sobre C:\Inetpub\Prueba\MyFile.txt desde tu aplicacion?

[Lethe]

Sí tengo permiso Mickel...