per sapere la lista dei file in una cartella ci sono due modi:

uno usi FileSistemObject

dim fso,fs,f1,s
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.getfolder(Folder)
Set fs = f.Files
k = 0
For Each f1 In fs
s = f1.Name
k = k + 1
list1.addnew s
Next

Due

usi FileListBox

File1.path = (percorso)
e ti appaiono subito la lista dei file.