von einer Excel Datei wird per Makro alle 15 Minuten eine Sicherungskopie in einem Ordner gespeichert.
Jetzt = Now()
Datumzeitstempel = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")
Datumzeitstempel = Datumzeitstempel & "-" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt) _
_
, "00") & Format(Second(Jetzt), "00")
ThisWorkbook.SaveCopyAs "...Pfad..." & Datumzeitstempel & ".xlsm"
ZeitZuSpeichern = Now + TimeSerial(0, 15, 0) 'hier Intervall einstellen (h, m, s)
Application.OnTime ZeitZuSpeichern, "Speichern"
Nun wird der entsprechende Ordner nach einer gewissen Zeit sehr voll. Bisher muss ich den Ordner also händisch immer wieder leeren, was ich gerne automatisieren würde. Grundsätzlich ist es ja keine große Sache per Makro Dateien zu löschen, aber wie genau bekomme ich das hin, dass er alle Dateien bis auf die letzten 3 alle 3 Stunden automatisch löscht?
Grüße
Kenji