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

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

これは２行目です。