Find a file with wildcard character : FileSearch « File Path « VBA / Excel / Access / Word

Find a file with wildcard character

Sub findFile()
Dim i As Integer
   With Application.fileSearch
        .LookIn = "c:\"
        .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


Related examples in the same category

1.The FileSearch Object
3.The FoundFiles Collection Object
4.if a particular file exists, and False if not
5.searches the My Documents directory and its subdirectories for all XLS files that contain the text budget.
6.Find a file
7.File files with Application.FileSearch
8.Use Application.FileSearch to find files