Public Sub Befehl19_Click()
    Dim OutpuPath As String, Filename As String, InputPath As String
    Dim fso1, fldr, sfldr, sfiles, s, OutPut As String
    'Pfade festlegen
    OutPutPath = "C:\Dokumente und Einstellungen\Rene\Eigene Dateien\Kursdaten" & _
      "Service\ASCII Daten\Ausgabe\"
    InputPath = "C:\Dokumente und Einstellungen\Rene\Eigene Dateien\Kursdaten" & _
    "Service\ASCII Daten\Ausgabe\Einzeldateien\"
    'Filesystem initialisieren
    Set fso1 = CreateObject("Scripting.FileSystemObject")
    Set fldr = fso1.GetFolder(InputPath)
    Set sfiles = fldr.Files
    Open OutPutPath + "FDAX0406.TXT" For Output As #1
 
    For Each f1 In sfiles
        Open f1 For Input As #2
        Input #2, OutPut
        Print #1, OutPut
        Close #2
    Next
    Close #1
    MsgBox "Join beendet"
End Sub