VBS脚本实现遍历批量替换多目录多文件内容的代码（vba 批量替换）速看

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