Backup maken en terugzetten

Status
Niet open voor verdere reacties.

Geertvdb

Gebruiker
Lid geworden
12 jan 2005
Berichten
121
Op de onderstaande manier(I) maak ik een backup maar hoe moet het nu als ik de meest recente backup wil terug zetten op de manier (II) lukt het niet.
Alvast bedankt voor jullie aandacht
Geert


(I)
Private Sub Knop7_Click()
Dim strBestandNaam As String
Dim strBackupNaam As String

strBestandNaam = "campingdeveldmeijer.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam
strBestandNaam = "c:\data\" & strBestandNaam
strBackupNaam = "F:\backup\" & strBackupNaam
FileCopy strBestandNaam, strBackupNaam
End Sub

(II)
Private Sub Knop8_Click()
Dim strBestandNaam As String
Dim strBackupNaam As String

strBestandNaam = "campingdeveldmeijer.mdb"
strBackupNaam = Format$(Now(), "yyyymmdd") & strBestandNaam
strBackupNaam = "F:\backup\" & strBackupNaam
strBestandNaam = "c:\data\" & strBestandNaam
FileCopy strBestandNaam, strBackupNaam
End Sub
 
Jasper,

Doe eens een suggestie wat ik hiervoor kan gebruiken?

Geert
 
Er zit een foutje in je denktrant: je code om een db terug te zetten werkt (net als bij het maken) op de huidige datum. Je kunt dus alleen de backup van vandaag terughalen. En dat zal meer niet dan wel het geval zijn, neem ik aan... Je kunt een eerdere backup wel opzoeken met het DIR commando. Dat commando kun je gebruiken om de lijst met mdb bestanden door in te lezen. Het bestand met de hoogste JaarMaandDag code is de laatste.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan