File.AppendAllText
fileに文字列を追加してfileを閉じます。
ファイルがない場合は新規に作成して書き込みます。
引数は
path As String,
contents As String
です。
今回は引数はどちらもStringなので簡単です。
第一引数はファイルパス
第二引数は追加したい文字列です。
ソース
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim records As String = ”りんご”
File.AppendAllText(“C:\Users\user\Desktop\hoge.txt”, records)
End Sub
End Class
実行結果は
ファイルがある場合りんごがファイルに追加される。
ファイルがない場合新規に作成されてりんごがファイルに追加される。
※ファイルがリードオンリーになっていたらエラーになります。