VBS（VBScript）によるテキストファイルに追記する方法を紹介
テキストファイルに追記する方法
サンプルソース
Dim fs
Dim fi
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fi = fs.OpenTextFile("C:\test.txt", 8, True) ' 2の場合上書き、8の場合追記
fi.WriteLine("test！") ' writeだったら改行なし、writelineだったら改行あり
↑C:\test.txtのファイルを開く。※バッチファイルや、exeファイル等のプラグラムの場合だと実行を行う。