Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2, ForAppending = 8 ' Create sample text file. (readline.txt) Set tso = fso.OpenTextFile("readline.txt", ForWriting, true) tso.WriteLine("TOKYO") tso.WriteLine("CHIBA") tso.WriteLine("KANAGAWA") tso.WriteLine("TOCHIGI") tso.WriteLine("SHIZUOKA") tso.Close Set tso = Nothing ' Read text file. Set tso = fso.OpenTextFile("readline.txt", ForReading) i=0 While tso.AtEndOfStream <> true i = i + 1 WScript.Echo i & " : " & tso.ReadLine Wend WScript.Echo "TOTAL LINE = " & i tso.Close Set tso = Nothing Set fso = Nothing