#navi(../)
* 既存ファイルをにテキストを追加書き込みするVBScriptサンプルコード [#m234d2bd]
既存ファイルにテキストを追加書き込みするVBScriptのサンプルコードおよび実行結果を以下に記します。
#contents
#htmlinsertpcsp(win-top.html,win-sp.html)
* 関連記事 [#o215a931]
-[[ファイルを行単位で読み込む方法・ReadLineメソッド>WSH/ファイルを行単位で読み込む方法・ReadLineメソッド]]
-[[ファイルを新規に作成しテキストを書き込むサンプルコード>WSH/ファイルを新規に作成しテキストを書き込むサンプルコード]]
-[[ファイルの存在チェックを行う・FileExists>WSH/ファイルの存在チェックを行う・FileExists]]
-[[ファイルの削除を行う方法・DeleteFile>WSH/ファイルの削除を行う方法・DeleteFile]]
-[[ファイルまたはフォルダーを別の場所にコピーする・Copy>WSH/ファイルまたはフォルダーを別の場所にコピーする・Copy]]
-[[FileSystemObjectに含まれているオブジェクトおよびコレクション一覧>WSH/FileSystemObjectに含まれているオブジェクトおよびコレクション一覧]]
-[[FileSystemObjectのDriveオブジェクトとDrivesコレクション>WSH/FileSystemObjectのDriveオブジェクトとDrivesコレクション]]
-[[FileSystemObjectのFileオブジェクトとFilesコレクション>WSH/FileSystemObjectのFileオブジェクトとFilesコレクション]]
-[[FileSystemObjectのFolderオブジェクトとFoldersコレクション>WSH/FileSystemObjectのFoldersオブジェクトとFoldersコレクション]]
-[[FileSystemObjectのTextStreamオブジェクトの調査>WSH/FileSystemObjectのTextStreamオブジェクトの調査]]
* 既存ファイルへの追加書き込みサンプルコードおよび実行結果 [#ud73d46d]
以下に、既存ファイルへの追加書き込みを行うVBScriptのサンプルコードおよびサンプルコードの実行結果について記します。
** 追加書き込みサンプルコード [#pafb3dd3]
#ref(append.vbs)
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を書き込んでいます。
** 追加書き込みサンプルコードの実行結果 [#e730d1a8]
新規にtext.txtファイルを作成しfooを書き込んだ後クローズし、再度追加書き込みモードでtext.txtをオープンしbarを追加書き込みした結果です。
C:\wsh>cscript /nologo append.vbs
C:\wsh>type text.txt
foo
bar
#htmlinsertpcsp(win-btm.html,win-sp.html)