Dim F As Integer
Dim sFile As String
Dim sPath As String
 
sPath = "c:\ordner1"
 
F = FreeFile
Open "d:\temp\test.txt" For Output As #F
 
sFile = Dir$(sPath & "\*.*")
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    Print #F, sFile
  End If
  sFile = Dir$
Loop
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de