File Path VisualBasic Script

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