Fíjate, por ejemplo, en el siguiente código:
Código vb:
Ver originalDim Folder As String
Dim FileName As String
Folder = "C:\*.xls"
FileName = Dir(Folder, vbArchive)
Do While FileName <> ""
MsgBox FileName
FileName = Dir
Loop
Con eso obtendríamos una lista de todos los archivos *.xls que hubiera en el directorio raíz C:\
El principio es básicamente el mismo para cualquier otra carpeta. Si deseas realizar alguna acción con los archivos sólo debes incluirlo en el bucle Do...While