TextStreamオブジェクト - ReadLineメソッド


【書式】

TextStream.ReadLine

テキストファイルから1行分の文字を読み込みます。

行末の改行は読み込みません。

Sub test79()
    Dim FSO As Object, buf As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Work\Sample.txtの先頭から1行読み込んで表示します
    With FSO.GetFile("C:\Work\Sample.txt").OpenAsTextStream
        buf = .ReadLine
        .Close
    End With
    MsgBox buf
    Set FSO = Nothing
End Sub