Question

vbs批量替换不同目录下的指定内容

Set oFso = CreateObject("Scripting.FileSystemObject")dim a,dira=""dir = inputbox("请输入文件夹路径，点击确定开始处理文件")treeIt(dir)Function TreeIt(sPath) Set oFso = CreateObject("Scripting.FileSystemObject") Set oFolder = oFso.GetFolder(sPath) Set oSubFolders = oFolder.Subfolders Set oFiles = oFolder.Files For Each oFile In oFiles a = ofile.path & vbcrlf msgbox a Set File = oFSO.OpenTextFile(a) f = File.ReadAll File.Close f = Replace(f, " ", "") f = Replace(f, "-", "") f = Replace(f, ":", "") f = Replace(f, "：", "") Set File = oFSO.OpenTextFile(a) File.Write f File.Close Next For Each oSubFolder In oSubFolders TreeIt(oSubFolder.Path) NextEnd Functionmsgbox "OK"'我想替换掉一个文件夹下所有文件的空格，横杠，冒号为空，可是我这个写法报错，求大神帮我修改





Answer 1

a = ofile.path & vbcrlf 这一行的 & vbcrlf 删掉。
变量a等于文件路径，文件路径不加回车换行符。