Dim F As Integer
Dim sPath As String
Dim sFile As String
 
sPath = "d:\temp"
 
F = FreeFile
Open "deinedatei.txt" For Output As #F
sFile = Dir$(sPath & "\*.*")
While Len(sFile) > 0
  If sFile <> "." And sFile <> ".." Then
    Print #F, sPath & "\" & sFile
  End if
  sFile = Dir$
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de