EOF関数

構文
EOF(filenumber)
引数fienumberには、現在開いているファイルを表す有効なファイル番号を指定します。

解説
EOF関数は、ランダムアクセスモードまたはシーケンシャル入力モードで開いたファイルの現在位置がファイルの末尾に達しているときTrueを返します。

サンプル
次の例は、C:\Windows\Win.iniの行数を表示します。

Sub Sample()
    Dim buf As String, cnt As Integer
    Open "C:\Windows\Win.ini" For Input As #1
    Do While Not EOF(1)
        Line Input #1, buf
        cnt = cnt + 1
    Loop
    Close #1
    MsgBox "Win.iniは" & cnt & "行です"
End Sub