Maximal 5 Sicherungskopien
15.05.2016 14:58:31
Oisse
folgenden Code verwende ich zum Erstellen einer Sicherungskopie, der auch einwandfrei funkioniert:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim SavePath As String
Dim FileName As String
Dim FileExtension As String
Dim FileDate As String
Dim FileBackupName As String
Dim FileUsername As String
SavePath = ThisWorkbook.Path & "\Backup\"
FileName = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
FileExtension = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") + 1)
FileUsername = Environ("UserName")
FileDate = Format(Now, "YYYYmmdd_hhmmss")
FileBackupName = SavePath & FileName & "_" & FileUsername & "_" & FileDate & "." & _
FileExtension
ActiveWorkbook.SaveCopyAs FileBackupName
End Sub
Allerdings werden mir ja jetzt unzählige Backups erstellt, was nicht gut ist.
Kann man das auf eine bestimmte Anzahl begrenzen, sodass lediglich die letzten 5 Backups behalten werden und die vorherigen gelöscht werden? Wenn ja, bitte wie?
Gruß
Oisse