Hallo liebe Experten,
ich habe ein kleines Problem. Ich habe mir für eine wichtige Access Datenbank ein Backupsystem in VBA entwickelt. Welches wie folgt funktioniert:
[i]Private Sub Form_Load()
Dim DBPfad As String, BackupPfad As String, DBName As String, _
objFso As Scripting.FileSystemObject, Quelldatei As String, _
Zieldatei As String, JetztVar As String
Set objFso = CreateObject("Scripting.FileSystemObject")
Quelldatei = CurrentDb.Name
DBPfad = Left(Quelldatei, Len(Quelldatei) - Len(Dir(Quelldatei)))
BackupPfad = DBPfad & "\Backup\"
DBName = Mid(Quelldatei, InStrRev(Quelldatei, "\") + 1)
DBName = Left(DBName, InStr(DBName, ".") - 1)
On Error Resume Next
objFso.CreateFolder BackupPfad
On Error GoTo 0
JetztVar = Format(Now, "ddmmyyyy_hhnnss")
Zieldatei = BackupPfad & DBName & "_" & JetztVar & ".mdb"
objFso.CopyFile Quelldatei, Zieldatei, True
Set objFso = Nothing
End Sub[/i]
Das Problem bei dem Code ist, das mit bei jedem Öffnen der Datenbank ein Backup mit Datum und Uhrzeit erstellt wird. Dies ist auf Dauer sehr Speicherintensiv und der Backupordner muss regelmäßig ausgemistet werden.
Ict es möglich die maximale Backupanzahl aüf 5 Backups zu begrenzen, sodass beim 6 Öffnen der Datenbank die "älteste" Backupdatei gesucht und überschrieben wird mit der Neuen???
Wäre echt super wenn mir jemand weiterhelfen könnte!!!
Danke im Voraus und viele Grüße
Andy |