Alle-PRN Dateien in eine TXT-Datei

Sub PRNnachALLE()
'Erstellt unter Excel 2003
'Schreibt die Zeilen aller PRN-Dateien eines Verzeichnis in die Datei Alle.txt
Dim PfadPNR As String, PfadAktuell As String, Dummy, Datei
'Pfad der PNR-Dateien wählen
PfadAktuell = VBA.CurDir
Dummy = Application.GetOpenFilename(Filefilter:="PRN-Datei (*.PRN),*.PRN", Title:="Bitte PRN-Datei im Zielordner auswählen")
If Dummy = False Then Exit Sub
PfadPNR = VBA.CurDir
VBA.ChDir PfadAktuell
Open PfadPNR & "\Alle.txt" For Output As #1
With Application.FileSearch
.LookIn = PfadPNR
.Filename = "*.PRN"
.Execute
'Daten aus Dateien nach Alle.txt schreiben
For Each Datei In .FoundFiles
Open Datei For Input As #2
Do Until EOF(2)
Line Input #2, Dummy
Print #1, Dummy
Loop
Close #2
'Dateinamen ohne Endung in Datei schreiben
Dummy = Right(Datei, Len(Datei) - InStrRev(Datei, "\"))
Print #1, Left(Dummy, Len(Dummy) - 4)
Next
End With
Close #1
End Sub