Поиск в windows - VB

Формулировка задачи:

Подскажите пожалуйста, как написать поисковик вордовских файлов в windows. Хотя бы с чего начать?

Код к задаче: «Поиск в windows - VB»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

10   голосов, оценка 4.300 из 5


СОХРАНИТЬ ССЫЛКУ