ich habe ca. 200.000 Textdateien die eine Zeile haben.
Diese sollen alle in eine große Textdatei geschrieben werden.
Ich habe folgendes Makro, das bis 65000 Dateinsätzen sauber arbeitet.
Aber dann ist Schluss.
Kann mir jemand zeigen, wie ich alle Datein einlesen kann?
Danke im voraus
Uwe
Sub einlesen()
Dim a As Long, tmp As String
With Application.FileSearch
.LookIn = "c:\test" 'hier musst du den Ordner mit den Texten rein
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
End With
Open "c:\zusammen.txt" For Output As #1 'Hier die Zieldatei ändern
For a = 1 To Application.FileSearch.FoundFiles.Count
Open Application.FileSearch.FoundFiles.Item(a) For Input As #2
Line Input #2, tmp
Print #1, tmp
Close (2)
Next a
Close (1)
End Sub