Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("yourfile.txt", 1) f.ReadAll response.write "There are " & f.Line & " lines in the specified file."
2) to read a file line by line Do While Not textStreamObject.AtEndOfStream LineRead = textStreamObject.ReadLine Loop