Search and Log [VBScript]

Greetings. I wrote a script that Searches for a string in file names and Logs the results in a text file. It has the following neat features:

* Search results refer also to the number of instances the searched string appears in the file name.

* While the process is running, search data is written to a ~.tmp file, and on successful completion the file is renamed to .log.
File names summarize the target of the search, and cannot be overridden.

* If the selected folder for search contains subfolders, the user is prompted to include them in the search. By calling the search sub procedure from itself, the search drills down into deepest subfolders.

* For searches that include subfolders, a short summary of the search results is featured in the end of the log file, including a list of the file types for the matching files, in descending order.

' Search and Log ' (c) Oren Hadar, 2009 Option Explicit Dim fso, f, wshell, mainFolder, mySearch, logFile, sfInclude, logFileName, _ f1, fc, fileSearched, fileMatch, filesInstances, totalInstances, filesMatching, _ filesTable(), fileId, foldersTable(), folderId, sf1, sfc, _ genI, topX, TopXId, genNestedI, groupTable, groupId, groupExists, _ groupOrderedTable, groupOrderedTableId, tempTopGroup Sub Define Set fso = CreateObject("Scripting.FileSystemObject") Set wshell = createobject("wscript.shell") On Error Resume Next Set f = fso.GetFolder(InputBox("Enter subfolder or full path:", , wshell.currentdirectory)) If f = False Then MsgBox "The entered path does not exist, " _ & "or Cancel was pressed.", vbExclamation WScript.Quit End If mainFolder = f Set mySearch = New RegExp With mySearch .Pattern = InputBox("Enter search string:") .Global = True .IgnoreCase = True End With If f.subfolders.Count > 0 Then sfInclude = MsgBox("Include SubFolders?", vbYesNo) End If logFileName = "~" & f.name & " - find '" & mySearch.Pattern & "'.tmp" Set logFile = fso.CreateTextFile(logFileName , True) logFile.Write("Searching for '" & mySearch.Pattern & "' in " & Chr(34) & mainFolder & Chr(34)) If sfInclude = vbYes Then logFile.Write(" and its' subfolders") logFile.Write(":" & vbCrLf & vbCrLf) End Sub Sub Search filesInstances = Empty filesMatching = Empty If f <> mainFolder Then logFile.Write(".." _ & Replace(f, mainFolder, "") & "\" & vbCrLf) Set fc = f.Files For Each f1 in fc Set fileSearched = mySearch.Execute(f1.name) For Each fileMatch in fileSearched filesInstances = filesInstances + 1 totalInstances = totalInstances + 1 Next If fileSearched.Count > 0 Then logFile.Write(f1.name & " [" & fileSearched.Count & " instances]" & vbCrLf) ReDim Preserve filesTable(2, fileId) filesTable(0, fileId) = f1 filesTable(1, fileId) = fileSearched.Count filesTable(2, fileId) = f1.type filesMatching = filesMatching + 1 fileId = fileId + 1 End If Next If filesInstances > 0 Then ReDim Preserve foldersTable(2, folderId) foldersTable(0, folderId) = f foldersTable(1, folderId) = filesMatching foldersTable(2, folderId) = filesInstances folderId = folderId + 1 End If Select Case filesInstances Case 0 logFile.Write("No matches were found") If f = mainFolder And sfInclude = vbYes Then logFile.Write(" in the main folder") logFile.Write("." & vbCrLf & vbCrLf & vbCrLf) Case 1 logFile.Write("[1 instance in 1 file]" & vbCrLf & vbCrLf & vbCrLf) Case Else logFile.Write("[" & filesInstances & " instances in " & filesMatching _ & " files]" & vbCrLf & vbCrLf & vbCrLf) End Select If sfInclude = vbYes Then Set sfc = f.Subfolders For Each sf1 In sfc Set f = fso.GetFolder(sf1) Call Search Next End If End Sub Sub Summary logFile.Write("* * * * * * * *" & vbCrLf _ & "Search Summary" & vbCrLf _ & "* * * * * * * *" & vbCrLf & vbCrLf & vbCrLf) If totalInstances = 0 Then logFile.Write("No instances of '" & mySearch.Pattern & "' were found.") Exit Sub End If logFile.Write(totalInstances & " instances of '" & mySearch.Pattern _ & "' were found in " & fileId & " files, inside " & folderId & " folders." _ & vbCrLf & vbCrLf & vbCrLf & vbCrLf) Call ResVar For genI = 0 To folderId - 1 If foldersTable(1, genI) > foldersTable(1, topX(0)) Then ReDim topX(0) topX(0) = genI ElseIf foldersTable(1, genI) = foldersTable(1, topX(0)) And _ foldersTable(0, genI) <> foldersTable(0, topX(0)) Then topXId = topXId + 1 ReDim Preserve topX(topXId) topX(topXId)=genI End If Next If topXId = 1 Then topXId = 0 LogFile.Write("Folder(s) with most matching files [" _ & foldersTable(1, topX(0)) & " files]:" & vbCrLf) For genI=0 To topXId logFile.Write(foldersTable(0, topX(genI)) & " [" & foldersTable(2, topX(genI)) _ & " instances]" & vbCrLf) Next logFile.Write(vbCrLf & vbCrLf & vbCrLf) Call ResVar For genI = 0 To folderId - 1 If foldersTable(2, genI) > foldersTable(2, topX(0)) Then ReDim topX(0) topX(0) = genI ElseIf foldersTable(2, genI) = foldersTable(2, topX(0)) And _ foldersTable(0, genI) <> foldersTable(0, topX(0)) Then topXId = topXId + 1 ReDim Preserve topX(topXId) topX(topXId)=genI End If Next LogFile.Write("Folder(s) with most instances [" _ & foldersTable(2, topX(0)) & " instances]:" & vbCrLf) If topXId = 1 Then topXId = 0 For genI=0 To topXId logFile.Write(foldersTable(0, topX(genI)) & " [" & foldersTable(1, topX(genI)) _ & " files]" & vbCrLf) Next logFile.Write(vbCrLf & vbCrLf & vbCrLf) Call ResVar For genI = 0 To fileId - 1 groupExists = False For genNestedI = 0 To groupId If filesTable(2, genI) = groupTable(0, genNestedI) Then groupExists = True groupTable(1, genNestedI) = groupTable(1, genNestedI) + 1 End If Next If groupExists = False Then groupId = groupId + 1 ReDim Preserve groupTable(1, groupId) groupTable(0, groupId) = filesTable(2, genI) groupTable(1, groupId) = 1 End If Next ReDim groupOrderedTable(1, groupId) For genI = 0 To groupId For genNestedI = 0 To groupId If groupTable(1, genNestedI) > groupOrderedTable(1, genI) Then groupOrderedTable(0, genI) = groupTable(0, genNestedI) groupOrderedTable(1, genI) = groupTable(1, genNestedI) tempTopGroup = genNestedI End If Next groupTable(1, tempTopGroup) = 0 Next logFile.Write("The matching files are of the following " _ & groupId & " file types, in descending order:" & vbCrLf) For genI = 0 To groupId - 1 logFile.Write(groupOrderedTable(0, genI) & " [" & groupOrderedTable(1, genI) & " files]" & vbCrLf) Next End Sub Sub ResVar ReDim topX(0) topX(0) = 0 topXId = 0 ReDim groupTable(1, 0) groupTable(0, 0) = "No File Type" groupTable(1, 0) = 0 groupId = Empty End Sub Call Define Call Search If sfInclude = vbYes Then Call Summary logFile.Close fso.MoveFile logFileName, Mid(Replace(logFileName,".tmp" , ".log"), 2)