Использование Application.FileSearch поможет Вам найти файлы на диске. Для Office 2007 эта функция не работает. Можно использовать другие функции, типа Dir, FileSystemObject и т.п.
' Поиск файлов по шаблону
Private Sub butRead_Click()
Dim i As Long
On Error GoTo 999
With Application.FileSearch
.NewSearch
.LookIn = Me.myFolder ' = c:\
.FILENAME = Me.myExt ' = *.mdb
.SearchSubFolders = Me.myFflagSubFolder ' = True
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
Me.progress = "Count=" .FoundFiles.Count vbCrLf
For i = 1 To .FoundFiles.Count
Me.progress = Me.progress .FoundFiles(i) vbCrLf
Next i
End If
End With
Exit Sub 'Выходим из программы
999:
MsgBox Err.Description
Err.Clear 'Очищаем поток от ошибок
End Sub