テキストファイルへの追加書き出し

Sub ExampleAppendFile()

       Dim strFileName As String

       Dim intFileNo As Integer

       Dim strData As String

       '

       'ファイルのオープン

       strFileName = "D:\SampleFolder\sample.txt"

       intFileNo = FreeFile() 

       Open strFileName For Append As #intFileNo

       '

       'レコードの出力

       strData = "bbbbbbb"

       Print #intFileNo, strData

       '

       'ファイルのクローズ

Close #intFileNo

       '

Msgbox("処理完了") 

End Sub

  

上記コードは、文字列をテキストファイルに追加書き出すサンプルである。

通常の書き込みとの違いは、ファイルをオープンする際、Append モード
で Open ステートメントを実行することである。