簡単な VBScript について基本的な質問があります。私の目標は、複数のファイルで複数のテキスト文字列を置き換えるものを見つけることです。(置換する 21 個のテキスト文字列はファイル間で同じです。) ファイル名には約 12 個のプレフィックスがあり、最後に 1 から 200 の番号が付きます。ファイルの 1 つの文字列の 1 つだけに使用しているコードは次のとおりです。
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\filename_XX.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Test 1", "Test 2")
Set objFile = objFSO.OpenTextFile("C:\filename_XX.txt", ForWriting)
objFile.Write strNewText
objFile.Close
ファイル名をループし、おそらく検索文字列をループしたいだけです。For...Next ループでこれを達成できますか? ファイル名オブジェクトの for ループの番号を参照できますか?
サブフォルダーの検索に関する回答を見たことがありますが、必要以上に洗練されていると思います。