'Jede Datei im Quellverzeichnis abarbeiten
For Each Datei In PfadQuell.Files 
  if Right(Datei.Name,4) = ".txt" then
 
    liste = liste + Datei.Name + vbCrLf
 
    'Oeffenen der Dateien
    Set ITextStreamQuell = DateiQuell.OpenTextFile(Datei, 1, False, -2)
    Set ITextStreamZiel  = DateiZiel.OpenTextFile(PfadZiel & "/" & Datei.Name, _
      8, True)
 
    '...dann wird die Quellatei Zeile für Zeile durchsucht. 
    Do Until ITextStreamQuell.AtEndOfStream
      zeile = ITextStreamQuell.Readline
      ITextStreamZiel.Write zeile & vbCrLf
 
    Loop
  End If   
Next
 
MsgBox "Folgende Dateien wurden formatiert und kopiert:"  + vbCrLf + vbCrLf + _
  liste