Sub findFiles()
Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "c:\VBA"
.FileName = "*.mdb"
.SearchSubFolders = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i
End If
End With
End Sub