Sub TextStream_Write()

    Dim FSO As New FileSystemObject

    Dim MyTS As TextStream

    Dim MyPath As String

    

    MyPath = CurrentProject.Path & "\Sample2\sample.txt"

    

    Set MyTS = FSO.OpenTextFile(MyPath, ForWriting)  'ForAppending　は追記

    

    MyTS.Write "田村桃太郎"

    MyTS.WriteBlankLines 1

    MyTS.WriteLine "田村小太郎"

    

    MyTS.Close

    

    Set MyTS = Nothing

    

End Sub

Sub TextStream_Read()

    Dim FSO As New FileSystemObject

    Dim MyTS As TextStream

    Dim MyPath As String

    

    MyPath = CurrentProject.Path & "\Sample2\Sample.txt"

    

    Set MyTS = FSO.OpenTextFile(MyPath, ForReading)

    

    '２文字読み込み

    MsgBox MyTS.Read(2)

    

    '２文字読み込み

    MsgBox MyTS.Read(2)

    

    '改行まで読み込み

    MsgBox MyTS.ReadLine

    

    '全て読み込み

    MsgBox MyTS.ReadAll

    

    MyTS.Close

    

    Set MyTS = Nothing

    

End Sub


　↓　facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ