[ファイル終端まで１行ずつ読み込む]

test.txt を開いて、ファイルの終端まで１行ずつ読み込みます。

【ソースコード】

[tips0072.vbs]
Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim objFile     ' ファイル読み込み用

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    Set objFile = objFSO.OpenTextFile("test.txt")
    If Err.Number = 0 Then
        Do While objFile.AtEndOfStream <> True
            WScript.Echo objFile.ReadLine
        Loop
        objFile.Close
    Else
        WScript.Echo "ファイルオープンエラー: " & Err.Description
    End If
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFSO = Nothing

[test.txt]
Hello VBScript World
これは２行目です。

【実行結果】

C:\> cscript //NoLogo tips0072.vbs
Hello VBScript World
これは２行目です。