MsoFileDialogFolderPicker, поиск папки с заданным файлом - VB

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

Нужно найти папку, в которой бы лежал определённый файл ("хххууу*.mdb"). Можно ли это сделать при помощи msoFileDialogFolderPicker? (сам проверил, что задание фильтра не даёт результата).

Решение задачи: «MsoFileDialogFolderPicker, поиск папки с заданным файлом»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()

    <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
    
      <font color="blue">With</font> Application.FileSearch
        .NewSearch
        .LookIn = <font color="teal">"C:\"</font>
        .SearchSubFolders = True
        .Filename = <font color="teal">"TRAILER.XLS"</font>
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles
        
        <font color="blue">If</font> .Execute() > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
            <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> .FoundFiles.Count
                MsgBox .FoundFiles(i)
            <font color="blue">Next</font> i
            
        <font color="blue">End</font> <font color="blue">If</font>
        
    <font color="blue">End</font> <font color="blue">With</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        