Scrive e Legge File new

Con questo script leggiamo il contenuto del file tutto In una volta:

<%
filePath = Server.Mappath("file_testo.txt")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if objFileSystem.FileExists(filePath ) then
'apro file in lettura
Set objFile = objFileSystem.OpenTextFile(filePath, 1)
'scrivo a video contenuto file
Response.Write objFile.ReadAll
'oppure lo inserisco in una variabile contenuto_testo=objFile.ReadAll
objFile.Close
Set objFile=Nothing
end if
Set objFileSystem=Nothing
%>

Con questo script leggiamo il file riga per riga

<%
filePath = Server.Mappath("file_testo.txt")
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
if objFileSystem.FileExists(filePath ) then
Set objFile = objFileSystem.OpenTextFile(filePath, 1)
'leggo file riga per riga fino alla fine del file
Do While Not objFile.AtEndofStream
Response.Write objFile.ReadLine & "<br>"
Loop
objFile.Close
Set objFile=Nothing
end if
Set objFileSystem=Nothing
%>