>21
Const sPath = "とある場所\aaa.txt"
sAppendText = "こんなの" & vbNewLine & "追加するんだろ" & vbNewLine& "YO"
WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile(sPath,8).Write sAppendText