on error resume next Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(My_Computer) Set objFolderItem = objFolder.Self strPath = objFolderItem.Path
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "選擇你要搜索的文件夾:", OPTIONS, strPath) If objFolder Is Nothing Then msgbox "您沒(méi)有選擇任何有效目錄!" wscript.quit else Set objFolderItem = objFolder.Self sPath = objFolderItem.Path txtpath=sPath Set Fso = wscript.CreateObject("scripting.filesystemobject")
outFile.close set outFile = nothing set Fso = nothing
Sub myFind(ByVal thePath)
Dim fso, myFolder, myFile, curFolder Set fso = wscript.CreateObject("scripting.filesystemobject") Set curFolders = fso.getfolder(thePath) DirTotal = DirTotal + 1 If curFolders.Files.Count > 0 Then For Each myFile In curFolders.Files If InStr(1, LCase(myFile.Name), keyWord) > 0 Then outFile.WriteLine FormatPath(thePath) & "/" & myFile.Name FileTotal = FileTotal + 1 End If Next End If
