VBS脚本实现遍历批量替换多目录多文件内容的代码_VBS

有时候我们需要将一个目录与子目录中的多个htm网页文件实现批量替换，这里就为大家分享一下

将以下代码复制到一个文本文档中，并将文本文档的后缀修改为.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.ReadLine

									  If Len(strLine) > 0 Then

									   Set File = objFSO.OpenTextFile(strLine, 1)

									   aryLines = File.ReadAll

									   File.Close

									   aryLines = Replace(aryLines, "需要替换的内容", "替换后的内容")

									   Set File = objFSO.OpenTextFile(strLine, 2)

									   File.Write aryLines

									   File.Close

									  End If

									Loop

									oFile.Close

									objFSO.DeleteFile sFile

									Set objFSO = Nothing