VBS（VBScript）によるファイルを先頭から終わりまで一行ずつ読み込む方法を紹介
ファイルを先頭から終わりまで一行ずつ読み込む方法 ⇒ 指定行を読み込む方法
サンプルソース
（入力）
Dim fs
Dim fn
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fn = fs.OpenTextFile("e:\test.txt")
Do While fn.AtEndOfStream <> True
WScript.Echo fn.ReadLine
Loop
fn.Close
e:\test.txtの内容
（出力）
テスト1行目
テスト2行目
テスト3行目
テスト4行目
テスト5行目
テスト6行目
テスト7行目
テスト8行目
テスト9行目