递归遍历文件夹就行了- srcDir = "E:\Test"
- Set fso = CreateObject("Scripting.FileSystemObject")
-
- ReplaceString srcDir
-
- Function ReplaceString(ByRef srcDir)
- For Each f In fso.GetFolder(srcDir).Files
- strFile = f.Path
- If LCase(Right(strFile, 4)) = ".txt" Then
- Set objFile = fso.OpenTextFile(strFile, 1)
- arr = Split(objFile.ReadAll(), ";www")
- objFile.Close()
- If UBound(arr) >= 1 Then arr(1) = Replace(arr(1), "1,0=·啊2", "a总·bc")
- fso.OpenTextFile(strFile, 2).Write(Join(arr, ";www"))
- End If
- Next
- For Each fd In fso.GetFolder(srcDir).SubFolders
- ReplaceString fd.Path
- Next
- End Function
-
- MsgBox "Done"
复制代码
|