Office: Löschen von Dateien älter als 7 Tage

Hallo,

ich habe das Forum nun ein wenig durchforstet, doch nur Lösungen zu ähnlichen Problemen gefunden und leider nicht eine Lösung die mir komplett weiterhilft.

Ich möchte nach Durchlaufen eines Makros, das jeden Tag eine Liste erstellt und diese in einen Netzwerkordner kopiert, eine Automatisierung einfügen,die für diesen Ordner überprüft, ob Listen (.xls) vorhanden sind, die älter als 7 Tage sind und diese dann löscht. Ich habe dazu schon einige Versuche durchgeführt und komm einfach nicht drauf, wie ich das verwirklichen soll.
Hier das was ich bis jetzt habe:

Im Moment erkennt er "datname" nicht und bringt eine Fehlermeldung
zielordner2 is über ein Feld im Deckblatt des Makros definiert.
Würde mich über einen Lösungsvorschlag sehr freuen.

:)

 

Hallo supastarjk,

Wie lautet denn die Fehlermeldung?
Der Dateipfad muss im Deckblatt vollständig und richtig angegeben sein, inkl. dem letzten "\"!
Also z.B. D:\Test1\
Weil Du nämlich den Pfad und den Dateinamen zusammensetzt. Eine andere Möglichkeit wäre, das Zeichen "\" durch das Makro zu ergänzen (wenn es denn fehlt), z.B. datname = Dir(zielordner2 & "\" & dateityp) und Zeit1 = FileDateTime(zielordner2 & "\" & datname)

Wenn in dem Ordner keine .xls Datei vorhanden ist, bleibt datname leer! Es muss also sichergestellt sein, dass entweder eine .xls Datei im Ordner vorhanden ist oder ein Fehlermechanismus sollte in das Makro integriert werden.

 

Hallo supastarjk,

und noch eine Fehlerquelle:

Doppelt gemoppelt! In der ersten Zeile ordnest du der Variablen "datname" bereits einen Dateinamen mit vollständiger Pfadangabe zu. In der zweiten Zeile stellts du den Pfad aber nochmal voran.

Gruß Ingolf

 

@ Micky

der Querbalken steht in der QuellZelle drin.

Der Fehler lautet

Ich habe probeweise eine Liste des heutigen Datums eingestellt. dann mein Systemdatum um 8 Tage verstellt und dann eine weitere Liste gespeichert. und da nun eine drin steht die älter als sieben Tage is, kommt der Fehler.
wie könnte ich denn noch sicherstellen, dass er das Erstellungsdatum mit aktuellen vergleicht und die alten Dateienlöscht?

 

@ Ingolf

Dankeschön,

wenn ich jetzt aber nur noch

dastehen habe, kommt dieser fehler schon an dieser stelle stelle.

 

Hallo,

also, bei mir funktioiert der Code dann soweit. Komisch. An welcher Zeile im Code erscheint die Fehlermeldung genau?
Ändere mal die Zeile mit der Kills wie folgt ab:
Code:

 

Hallo supastarjk,

zum einen muss ich meinen vorigen Beitrag zurücknehmen. Da die Funktion Dir ja nur den Dateinamen ohne Pfad zurückliefert ist dein Code nicht doppelt gemoppelt.

Zum anderen müsste der Code dann aber zumindest deine Datei finden, vorausgesetzt in der Kombination der Variablen zielordner2 & datname wird tatsächlich eine gültige Datei mit vollständiger Pfadangabe zurückgegeben. Dies ist bei dir wohl nicht der Fall. Prüfe also deine Variablen einmal im Einzelschrittmodus. Außerdem liefert die FileDateTime-Funktion ein Datum mit Zeitangabe zurück. Wenn du das aktuelle Datum minus 7 Tage damit vergleichst, würdest du auch Dateien löschen, die genau 7 Tage alt sind (ohne Berücksichtigung der genauen Zeit).

Versuch's vielleicht mal so:
Code:

 

danke schonmal euch beiden, ihr helft mir echt weiter.

also ich hab jetzt wie micki gesagt hat, einfach

geschrieben. nun löscht er tatsächlich die alte Datei. Doch jetzt ist es so, wenn ich mehrer Dateien habe die älter als 7 Tage sind, dann löscht er nur die älteste. Anscheinend überprüft er nur die erste Datei.Bekommt man das irgendwie hin, dass man da ne Schleife einbaut? Wahrscheibnlich ja, allerdings nach welchen Kriterien?

@Ingolf
Das wär ja nicht so tragisch, wenn er auch die löscht, die genau 7 Tage alt sind. dann kann man doch einfach - 8 nehmen. dann müsste es doch klappen, oder?

 

Hallo supastarjk,

im Prinzip ja. Allerdings müsstest du den einen Tag dann von FileDateTime(blabla) abziehen oder alternativ vom aktuellen Datum nur 6 statt 7 Tage abziehen.

Gruß Ingolf