dim fso as new FileSystemObject
dim fo as folder
dim f as file
 
set fo = fso.getFolder("c:\musikverzeichnis")
 
open App.path & "\Ausgabedatei.txt" for output as #1
 
for each f in fo.files
 
print #1, f.name
 
next f
 
close #1