ich habe Excel Dateien, wo ich täglich per Makro Dateien bearbeite und in einen bestimmten Ordner speicher. Um das Laufwerk nicht zu überlasten möchte ich gern erreichen, dass beim überschreiten einer festgesetzten MB Größe für den Ordner Test1 die älteste Datei gelöscht wird.
Hier ist mein speicher Makro:
Sub Speichern()
Dim ordner As String
ordner = "C:\Test1\" & Year(Date) & Month(Date)
On Error Resume Next
MkDir ordner
ActiveWorkbook.SaveAs Filename:= _
ordner & "\Test1 " & Str(Date) + " " + Mid(Time, 1, 2) + "_" + Mid(Time, 4, 2) + "_" + Mid(Time, 7, 2) & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Kann mir vielleicht jemand helfen.
MFG
Andre