Posted on January 4, 2009
1
2
3
4
5
6
7
| 'File/Folder Handling - How to List all the DLL files in the C:\WINDOWS\SYSTEM directory.
Dim fso As New Scripting.FileSystemObject, fil As Scripting.File
For Each fil In fso.GetSpecialFolder(SystemFolder).Files
If UCase$(fso.GetExtensionName(fil.path)) = "DLL" Then
Debug.Print fil.Name
End If
Next |