VBA Scripting.FileSystemObject Enumerate files in a directory using FileSystemObject
Example
Early bound (requires a reference to Microsoft Scripting Runtime):
Public Sub EnumerateDirectory()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim targetFolder As Folder
Set targetFolder = fso.GetFolder("C:\")
Dim foundFile As Variant
For Each foundFile In targetFolder.Files
Debug.Print foundFile.Name
Next
End Sub
Late bound:
Public Sub EnumerateDirectory()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim targetFolder As Object
Set targetFolder = fso.GetFolder("C:\")
Dim foundFile As Variant
For Each foundFile In targetFolder.Files
Debug.Print foundFile.Name
Next
End Sub
