機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

TextStreamオブジェクト - AtEndOfStreamプロパティ



【書式】
TextStream.AtEndOfStream

ファイル内の読み込み位置を表すファイルポインタが、ファイルの末尾の直前にある場合はTrueを返します。
AtEndOfStreamプロパティは、読み取り専用で開かれたTextStreamファイルのみに適用されます。他のファイルの場合は、エラーとなります。
Sub test73()
    Dim FSO As Object, buf As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Work\Sample.txtの最後まで読み込んだかどうか表示します
    With FSO.GetFile("C:\Work\Sample.txt").OpenAsTextStream
        buf = .ReadLine
        If .AtEndOfStream Then
            MsgBox "最後まで読み込みました"
        Else
            MsgBox "最後まで読み込んでいません"
        End If
        .Close
    End With
    Set FSO = Nothing
End Sub



このエントリーをはてなブックマークに追加