Leer un fichero de texto del servidor


http://www.asptutor.com

Leer y mostrar en pantalla ficheros de texto

Ejemplo de FSO

En este ejemplo mostramos como leer un fichero de texto del servidor y lo mostramos en pantalla.

 

 

<%
Const ForReading = 1
Const Create = False
Dim FSysObj
Dim TS
Dim strLine
Dim strFileName

'nombre del fichero a mostrar
strFileName = Server.MapPath("ficherofuente.txt")

'Creación del objeto FileSystemObject
Set FSysObj = Server.CreateObject("Scripting.FileSystemObject")

' Abrimos el fichero
Set TS = FSysObj.OpenTextFile(strFileName, ForReading, Create)

If not TS.AtEndOfStream Then
Response.Write "<FONT FACE=Verdana SIZE=1>"
Do While not TS.AtendOfStream
' Leemos el fichero linea a linea y lo mostramos
strLine = TS.ReadLine
Response.Write i & " " & Server.HTMLEncode(strLine) & "<br>"
loop
End If

' cerramos y destruimos los objetos
TS.Close
Set TS = Nothing
Set FSysObj = Nothing
%>

 
 

Pulsa en el dibujo para ver el ejemplo funcionando