Dim DateiNr As Integer
Dim Dateiname, Textdatei As String
 
Textdatei = "C:\text.txt"
DateiNr = FreeFile
Open Textdatei For Output As DateiNr
 
Dateiname = Dir("c:\", vbNormal)
Do While Dateiname <> ""
       print DateiNr, Dateiname
       Dateiname = Dir
Loop
 
Close DateiNr