'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 'code by lcx 修改網(wǎng)上原有的一個(gè)小程序，不知作者，那個(gè)程序沒(méi)有對(duì)目錄實(shí)現(xiàn)遞歸查找 '將本程序放在你要查找的目錄下，或把查找的目錄拖到此腳本上，估計(jì)還有bug '======================================================================================= On Error Resume next Do Until False Findstr=InputBox("請(qǐng)輸入你要查找的字符(串):", "請(qǐng)輸入") 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 '處理當(dāng)前目錄 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
