[VB.NET]AppendAllTextでファイルの末尾に文字列を追加する

2014年6月29日2021年10月19日

書式
Public Shared Sub AppendAllText (path As String, contents As String)
ファイルを開き、指定した文字列をそのファイルに追加した後、ファイルを閉じます。
path: 指定した文字列の追加先となるファイル。
contents :ファイルに追加する文字列。

使用例

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      'ファイルパス変数の定義
      Dim filePath As String = "c:\arkgame\vb\logtest.txt"

      ' ファイルが存在しないバイ
      If File.Exists(filePath) = False Then

          'ファイルを作成
          Dim createText As String = "1行目:study skill become smart" + Environment.NewLine
          File.WriteAllText(filePath, createText)
      End If

      ' ファイルの末尾に孟司烈を追加して、ファイルを閉じます
      Dim apTxt As String = "2行目:文字列を追加" + Environment.NewLine
      File.AppendAllText(filePath, apTxt)

      ' ファイルを開いて、コンテンツを読み込む
      Dim readText As String = File.ReadAllText(filePath)

      Console.WriteLine(readText)
  End Sub

実行結果
ファイル名 C:\study\vb\logtest.txt
1行目:study skill become smart
2行目:文字列を追加