Dim sNewFile As String
Dim sPath As String
Dim sFile As String
Dim sBuffer As String
Dim F As Integer
 
sNewFile = "d:\neue_grosse_datei.txt"
 
sPath = "c:\zu_durchsuchender_ordner\"
sFile = Dir$(sPath & "*.txt")
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    ' Inhalt einlesen
    F = FreeFile
    Open sPath & sFile For Binary As #F
    sBuffer = Space$(Lof(F))
    Get #F, , sBuffer
    Close #F
 
    ' Inhalt an neue Textdatei anhängen
    F = FreeFile
    Open sNewFile For Append As #F
    Print #F, sBuffer
    Close #F
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de