Hola. ACa te paso un codigo que lista todos los archivos de un directorio.
Luego por favor, adecualo a tu necesidad, pero esto te resuleve lo central.
Espero te sirva
Código:
'---------------------------------------------------
'Agregar lña referencia a Microsoft Scripting Runtime
'---------------------------------------------------
Private Sub Command1_Click()
Dim Fso As FileSystemObject
Dim El_Directorio As Folder
Set Fso = New FileSystemObject
Set El_Directorio = Fso.GetFolder("c:\")
' Comienza a listar las carpetas
Call Listar_Archivos(El_Directorio)
End Sub
Private Sub Listar_Archivos(ByVal El_Directorio As Folder)
'Variable de tipo FILE y FOLDER para listar los archivos de un path
Dim El_Archivo As File
Set Fso = New FileSystemObject
' Obtiene el directorio
Set El_Directorio = El_Directorio
' Lista los ficheros de esta carpeta
For Each El_Archivo In El_Directorio.Files
'Añade la ruta
Debug.Print El_Archivo.Name
Next El_Archivo
End Sub