Поиск в windows - VB
Формулировка задачи:
Подскажите пожалуйста, как написать поисковик вордовских файлов в windows. Хотя бы с чего начать?
Решение задачи: «Поиск в windows»
textual
Листинг программы
Dim FoundedFiles As New Collection Sub SearchFiles(Folder As String, RegExpMask As String, Optional SearchInSubFolders As Boolean = True) Dim FSO As Object, i As Integer Set FSO = CreateObject("Scripting.FileSystemObject") If Not FSO.FolderExists(Folder) Then Exit Sub ' Set FoundedFiles = CreateObject("Scripting.Dictionary") Dim File As Object i = FoundedFiles.Count For Each File In FSO.GetFolder(Folder).Files If MatchFile(File.Name, RegExpMask) Then i = i + 1 FoundedFiles.Add File.Path, CStr(i) End If Next If SearchInSubFolders Then Dim SubFolder As Object For Each SubFolder In FSO.GetFolder(Folder).SubFolders Call SearchFiles(SubFolder.Path, RegExpMask) Next Set SubFolder = Nothing End If Set FSO = Nothing: Set File = Nothing End Sub Function MatchFile(ByVal FileName As String, ByVal RegExpMask As String) As Boolean Dim objRegExp As Object Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Pattern = RegExpMask objRegExp.IgnoreCase = True MatchFile = objRegExp.Test(FileName) Set objRegExp = Nothing End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д