File1.path = "C:/Windows/"

Dim Pfad As String
Dim i As Integer
 
Pfad = "C:/Windows/Ordnerliste.txt"
 
For i = 0 to file1.listcount-1
file1.selected(i) = True
Open Pfad For Ouput As 1
Print #1, file1.path & "/" file1.filename
Close 1
Next i

Press any key to continue or any other key to quit...