複数ディレクトリの複数ファイルを反復して一括置換するためのVBSスクリプト

Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c dir /s/b *.htm > list.htm",vbHide
Wscript.Sleep 1000

sFile = "list.htm"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = objFSO.OpenTextFile(sFile,1)
Do While Not oFile.AtEndOfStream
  strLine = oFile.
  If Len(strLine) > 0 Then
   Set File = objFSO.OpenTextFile(strLine, 1)
   aryLines = File.ReadAll
   File.Close
   aryLines = Replace(aryLines, "content to be replaced", "replaced content")
   Set File = objFSO.OpenTextFile(strLine, 2)
   File.Write aryLines
   File.Close
  End If
Loop
oFile.Close

Set objFSO.DeleteFile sFile
Set objFSO = Nothing