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
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