Guten Morgen,
ich habe in einem Ordner mehrere Textdateien, die ich mit VBS zu einer Datei zusammenfassen möchte. Das klappt auch wunderbar (Code folgt unten). Was mich noch stört ist der Dateiname, den ich gerne variabel gestalten möchte. Der Dateiname jeder Textdatei endet mit dem Datum, an dem sie erstellt wurde, im Format "JJMMTT". Mehrere Dateien für einen Tag kommen nicht vor. Ich würde nun gerne das Datum der ersten Datei und der letzten Datei (alphabetisch) für die neu erstellte, zusammengefasste Datei verwenden. Wenn ich z.B. die Dateien "abc_200101.txt", "abc_200102.txt" und "abc_200103.txt" habe, sollte die neue Datei "abc_200101_200103.txt" heißen.
Habe schon gegoogelt, bin aber leider nicht fündig geworden.
Hier mein bisheriger Code:
Für Hilfe und Tipps wäre ich sehr dankbar
Matthias
ich habe in einem Ordner mehrere Textdateien, die ich mit VBS zu einer Datei zusammenfassen möchte. Das klappt auch wunderbar (Code folgt unten). Was mich noch stört ist der Dateiname, den ich gerne variabel gestalten möchte. Der Dateiname jeder Textdatei endet mit dem Datum, an dem sie erstellt wurde, im Format "JJMMTT". Mehrere Dateien für einen Tag kommen nicht vor. Ich würde nun gerne das Datum der ersten Datei und der letzten Datei (alphabetisch) für die neu erstellte, zusammengefasste Datei verwenden. Wenn ich z.B. die Dateien "abc_200101.txt", "abc_200102.txt" und "abc_200103.txt" habe, sollte die neue Datei "abc_200101_200103.txt" heißen.
Habe schon gegoogelt, bin aber leider nicht fündig geworden.
Hier mein bisheriger Code:
Quellcode
- Option Explicit
- Dim FSO, File, Ordner, Datei, QuellDatei, ZielDatei, Inhalt
- Set FSO=CreateObject( "Scripting.FileSystemObject")
- Set File = FSO.CreateTextFile("C:\temp\abc_000000.txt")
- file.close
- set file = nothing
- Set Ordner = FSO.GetFolder("C:\temp\txt")
- Set ZielDatei = FSO.OpenTextFile(Ordner & "\abc_000000.txt", 8) 'ForAppending
- On Error Resume Next
- For Each Datei In Ordner.Files
- Set QuellDatei = FSO.OpenTextFile(Datei.Path, 1) 'ForReading
- Inhalt = QuellDatei.ReadAll
- ZielDatei.Write Inhalt
- QuellDatei.Close
- Next
- ZielDatei.Close
Für Hilfe und Tipps wäre ich sehr dankbar
Matthias