'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 'code by lcx 修改网上原有的一个小程序，不知作者，那个程序没有对目录实现递归查找 '将本程序放在你要查找的目录下，或把查找的目录拖到此脚本上，估计还有bug '======================================================================================= On Error Resume next Do Until False Findstr=InputBox("请输入你要查找的字符(串):", "请输入") If Findstr > "" Then Exit do End If Loop
If Wscript.Arguments.Count > 0 Then For i=0 To WScript.Arguments.Count-1 folderpath=WScript.Arguments(i) find(folderpath) Next Else '处理当前目录 Set objShell = CreateObject("WScript.Shell") folderpath=objShell.CurrentDirectory find(folderpath) End If
'替换主程序 Sub find(path) set fso=CreateObject("Scripting.FileSystemObject") set current=fso.GetFolder(path) For Each file In current.Files
set fsofile=fso.OpenTextFile(file, 1, true) On Error Resume next tempstr=fsofile.Readall
If InstrRev(tempstr,Findstr, -1, 0)>0 And repwith = "" Then with Fso.opentextfile(left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))"\re.txt",8,true) .writeline file .close end with End If
If repwith > "" Then tempstr=replace(tempstr, Findstr, repwith) set fsofile1=fso.OpenTextFile(file, 2, true) fsofile1.WriteLine tempstr fsofile.close End if
Next
for each folder in current.subfolders Call find(folder.path) next
