Office TANAKA - FileSystemObject[SkipLineメソッド]

【書式】

TextStream.SkipLine

1行分の文字をスキップします。スキップした文字は読み込まれません。

Sub test81()
    Dim FSO As Object, buf As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''1行目と3行目を読み込んで表示します
    With FSO.GetFile("C:\Work\Sample.txt").OpenAsTextStream
        buf = .ReadLine & vbCrLf
        .SkipLine
        buf = buf & .ReadLine
        .Close
    End With
    MsgBox buf
    Set FSO = Nothing
End Sub

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