Hallo zusammen,
ich bräuchte mal die Hilfe der VBA Experten. Habe schon alle möglichen Threads durchgelesen, aber das was ich eigentlich will habe ich nicht gefunden.
Ich habe einen Ordner mit n Textdateien. Nun möchte ich alle Dateien, die älter als 39 Monate sind in ein Archiv verschieben (alternativ ist auch löschen möglich).
Das Datum ab wann in die Vergangenheit gelöscht/verschoben werden soll ermittle ich aus dem aktuellen Datum - 30 Monateer Variablen LOESCHEN_AB.
Eine mögliche Funktion rufe ich mit den Parametern QUELL_PFAD, ZIEL_PFAD und LOESCHEN_AB auf.
Jetzt das Besondere: Das Datum in den TXT Dateien ist im Dateinamen enthalten. Der setzt sich immer wie folgt zusammen aaaaaaJJJJMM.txt.
Vor dem verschieben muss ich also irgendwie abfragen Ist das Dateidatum kleiner LOESCHEN_AB
In Prosa ungefähr so:
Durchsuchen QUELL_PFAD - bis letzte Datei verarbeitet
Wenn mid(DATEI, 7,6) kleiner LOESCHEN_AB dann löschen/verschieben sonst weiter
Nächste Datei