Dateinamen_kuerzen
28.12.2021 14:17:50
Drolli
ich bin absoluter Einsteiger und versuche aktuell meinen Arbeitsalltag etwas zu optimieren. Mein Ziel ist regelmäßig wiederkehrende Abfolgen per VBA zu automatisieren.
Leider scheitere ich gerade bereits an meinem ersten kleinen Projekt.
Hintergrund:
Es gibt regelmäßig 31 txt.Dateien.
Diese beginnen immer gleich mit "ZCO_.......txt", dann sind Sie variabel.
Die letzen 9 Zeichen sind immer das Datum z.B. _20211228
Weiterverarbeitet werden die Dateien, aber ohne das Datum
Ziel: Alle 31 txt.Dateien durchlaufen und überall die letzten 8 Stellen abschneiden und als neue txt-Dateien im selben Pfad abspeichern
Bsp.
Dateiname alt: ZCO_25_VBA_AERGERTMICH_20211228
Dateiname neu:ZCO_25_VBA_AERGERTMICH
Mein Versuch sieht so aus:
Sub Dateinamen_kuerzen()
Dim Pfad As String 'Dateipfad
Dim Datei As String 'Dateinamen
Pfad = "T:\TEST\" 'Echter Pfad der Dateien
Datei = Dir(Pfad & "ZCO_*.txt") 'Rückgabe von Dateien mit Hilfe der DIR-Funktion
'Do until Anweisung, solange Dateien gefunden werden sollen diese mit Hilfe
'der NAME-FUNKTION um 9 Zeichen gekürzt und neu gespeichert werden
Do Until Datei = ""
Name Pfad & Datei As Pfad & Right(Datei, (Datei) - 9) & ".txt"
Datei = Dir
Loop
End Sub
Kann mir hier jemand weiterhelfen?
Vielen Dank im Voraus.
Beste Grüße
Drolli