VBS（VBScript）によるテキストファイルに上書きする方法
VBScriptを使用してテキストファイルを上書きする方法について説明します。以下のサンプルスクリプトは、指定されたテキストファイルを開いて、新しい内容で上書きします。
サンプルスクリプト:
Option Explicit
Dim objFSO, objTextFile
Dim strFilePath, strNewContent
' テキストファイルのパスを指定
strFilePath = "C:\example\sample.txt"
' 新しい内容を指定
strNewContent = "This is the new content for the text file."
' FileSystemObjectを作成
Set objFSO = CreateObject("Scripting.FileSystemObject")
' テキストファイルを開く (2 = ForWriting)
Set objTextFile = objFSO.OpenTextFile(strFilePath, 2)
' 新しい内容でファイルを上書き
objTextFile.Write strNewContent
' ファイルを閉じる
objTextFile.Close
' オブジェクトを解放
Set objTextFile = Nothing
Set objFSO = Nothingこのスクリプトは、strFilePath で指定されたテキストファイルを開き、strNewContent で指定された新しい内容で上書きします。ファイルが存在しない場合、新しいファイルが作成されます。上記のスクリプトを.vbsファイルにコピーし、適切なファイルパスと新しい内容に置き換えて実行してください。
この例では、Scripting.FileSystemObject を使用してファイルを操作しています。OpenTextFile メソッドに 2 を指定することで、書き込みモード（ForWriting）でファイルを開くことができます。これにより、ファイルが上書きされます。最後に、Write メソッドを使用して新しい内容を書き込み、Close メソッドでファイルを閉じます。