#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)

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS