Goede middag ontwikkelaars,
Ik wil bij het afsluiten van mijn database een backup maken en vorige versies van die backups verwijderen (De twee laatste mogen blijven staan)
Ik heb wat rondgezocht op het www en deze code gevonden die perfect werkt. Het bestand krijgt een datum met "Back-up" en de bestandsnaam. De code vervangt ook steeds de laatste versie met dezelfde datum.
Echter de volgende dag maakt hij opnieuw een backup met de huidige nieuwe datum. Enz....
Ik zou nu alle backups die ouder zijn dan 2 dagen eerst willen verwijderen. Kortom de folder niet gaan overstelpen met backups...
Dit is de code voor het creëren van de Back-up :
Wie kan mij helpen bij het delete gedeelte voor de oudere versies? www bied momenteel geen bruikbare oplossingen...
Thanks :thumb:
Pascal
Ik wil bij het afsluiten van mijn database een backup maken en vorige versies van die backups verwijderen (De twee laatste mogen blijven staan)
Ik heb wat rondgezocht op het www en deze code gevonden die perfect werkt. Het bestand krijgt een datum met "Back-up" en de bestandsnaam. De code vervangt ook steeds de laatste versie met dezelfde datum.
Echter de volgende dag maakt hij opnieuw een backup met de huidige nieuwe datum. Enz....
Ik zou nu alle backups die ouder zijn dan 2 dagen eerst willen verwijderen. Kortom de folder niet gaan overstelpen met backups...
Dit is de code voor het creëren van de Back-up :
Code:
Private Sub Knop11_Click()
On Error GoTo fout
Dim fileObj As Object
Dim strBestandNaam As String
Dim strBackupNaam As String
Dim strSpatie As String
Dim strBU As String
Dim msg As Integer
'Dim fout As String
strBestandNaam = "Get Inked and Bie Pierced.accdb"
strSpatie = " - "
strBU = "BackUp "
strBackupNaam = Format$(Now(), "dd-mm-yyyy") & strSpatie & strBU & strBestandNaam
strBestandNaam = CurrentProject.Path & "\" & strBestandNaam
strBackupNaam = CurrentProject.Path & "\" & strBackupNaam
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.copyfile strBestandNaam, strBackupNaam, True
msg = MsgBox("Lies, WOEHOE!!! De backup is gelukt!!!")
Application.Quit acQuitSaveAll
'DoCmd.RunMacro "DBAfsluiten"
Exit Sub
fout:
MsgBox "Sorry Lies, de backup is mislukt!", vbCritical
End Sub
Wie kan mij helpen bij het delete gedeelte voor de oudere versies? www bied momenteel geen bruikbare oplossingen...
Thanks :thumb:
Pascal