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

---

【書式】

TextStream.Read(characters)

テキストファイルから指定した文字数だけ読み込みます。

引数charactersには、読み込む文字数を指定します。

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