Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

Use Application FileSearch to find files

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