![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
既存ファイルにテキストを追加書き込みするVBScriptのサンプルコードおよび実行結果を以下に記します。
以下に、既存ファイルへの追加書き込みを行うVBScriptのサンプルコードおよびサンプルコードの実行結果について記します。
1: Set fso = CreateObject("Scripting.FileSystemObject")
2: Const ForReading = 1, ForWriting = 2, ForAppending = 8
3:
4: ' Create Text File
5: Set tso = fso.OpenTextFile("text.txt", ForWriting, true)
6: tso.WriteLine("foo")
7: tso.Close
8: Set tso = Nothing
9:
10: ' Append
11: Set tso = fso.OpenTextFile("text.txt", ForAppending)
12: tso.WriteLine("bar")
13: tso.Close
14: Set tso = Nothing
15:
16: Set fso = Nothing
5行目から7行目までは、新規にファイルを作成しfooを書き込んでいます。
11行目から13行目までは、ファイルを追加書き込みモードで開きbarを書き込んでいます。
新規にtext.txtファイルを作成しfooを書き込んだ後クローズし、再度追加書き込みモードでtext.txtをオープンしbarを追加書き込みした結果です。
C:\wsh>cscript /nologo append.vbs C:\wsh>type text.txt foo bar
