April 2006
Beginner
1114 pages
98h 16m
English
Application.FileSearch
(Windows only.) Returns the FileSearch object. The following code displays all of the text files in the current folder:
Sub TestSearch( ) ' Windows only
Dim s
With Application.FileSearch
.LookIn = ThisWorkbook.Path
.Filename = ".txt"
.Execute
For Each s In .FoundFiles
Debug.Print s
Next
End With
End SubRead now
Unlock full access