РЕДАКТИРОВАТЬ - я думаю, что, возможно, неправильно прочитал ваш вопрос как вопрос о поиске файла контент , но на самом деле речь идет о поиске по имени папки.
Я думаю, что в этом случае лучше всего использовать Dir () или FileSystemObject для l oop над всеми папками в папке "root" и вернуть список соответствующих имен папок в пользователь в списке - это может быть рабочий лист или форма пользователя. Затем они могут выбрать из этого списка.
Sub Tester2()
Dim col As Collection, f
Set col = GetFolderMatches("C:\Users\blahblah\Stuff", "Mail")
For Each f In col
Debug.Print f '<< add to a list for the user to pick from
Next f
End Sub
'Return a collection of folder paths given a starting folder and a term to search on
' e.g. "*.txt"
'Pass False for last parameter if don't want to check subfolders
Function GetFolderMatches(startFolder As String, nameIncludes As String, _
Optional subFolders As Boolean = True) As Collection
Dim fso, fldr, f, subFldr
Dim colFolders As New Collection
Dim colSub As New Collection
Set fso = CreateObject("scripting.filesystemobject")
colSub.Add startFolder
Do While colSub.Count > 0
Set fldr = fso.getfolder(colSub(1))
colSub.Remove 1
If LCase(fldr.Name) Like "*" & LCase(nameIncludes) & "*" Then
colFolders.Add fldr.Path
End If
If subFolders Then
For Each subFldr In fldr.subFolders
colSub.Add subFldr.Path
Next subFldr
End If
Loop
Set GetFolderMatches = colFolders
End Function
Код ниже не ответ на ваш вопрос, но оставив его здесь, потому что это интересно ...
Вы можете получить доступ к Windows Поиск непосредственно из VBA с помощью ADO (добавьте ссылку на «Библиотеку объектов Microsoft ActiveX vx.x» в своем проекте VBA)
Sub Tester()
Dim conn As New ADODB.Connection, rs As ADODB.Recordset
conn.Open "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
Set rs = conn.Execute("SELECT System.ItemPathDisplay " & _
" FROM SYSTEMINDEX WHERE " & _
" SCOPE = 'C:\Users\blahblah\Desktop\Temp' " & _
" and contains('validated')")
Do While Not rs.EOF
Debug.Print rs(0).Value
rs.MoveNext
Loop
End Sub
На основе: http://www.thejoyofcode.com/Using_Windows_Search_in_your_applications.aspx