Hola
Creo que la forma más sencilla es utilizando Scripting Runtime, que tienes que añadirlo en las Referencias. Luego añades el siguiente código:
Código vb:
Ver originalDim FS As New FileSystemObject
Dim Carpeta As Folder
Dim Archivo As File
Set Carpeta = FS.GetFolder("d:\prueba")
For Each Archivo In Carpeta.Files
List1.AddItem Archivo.Name
Next Archivo
En el ejemplo defino la carpeta D:\Prueba como carpeta a explorar, luego recorro los archivos de la carpeta añadiendo su nombre a un list.
Supongo que lo podrás adaptar el código fácilmente a tus necesidades.
--Saludos--