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

---

【書式】

TextStream.Column

ファイルへの書き込み位置または読み込み位置が、行の先頭から何文字目にあるかを返します。

Sub test74()
    Dim FSO As Object, buf As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''次の読み込み位置を表示します
    With FSO.GetFile("C:\Work\Sample.txt").OpenAsTextStream
        buf = .Read(3)
        MsgBox "次は、" & .Column & "文字目から読み込みます"
        .Close
    End With
    Set FSO = Nothing
End Sub