dim fso as object
dim oFile as object
dim oFolder as object
set fso=CREATEOBJECT("scripting.filesystemobject")
 
set oFolder=fso.GetFolder("C:\")   'C:\ einfach durch den Pfad ersetzen
for each oFile in ofolder.files
    msgbox oFile.path
next
 
set fso=nothing
set oFile=nothing
set oFolder=nothing