• Home
 · 
• Miscellaneous
 · 
• Backup and Restore

Backup and Restore

Backup and Restore

API Declarations


Dim source As String, desti As String





Rate Backup and Restore

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo err
    Dim source As String, desti As String
    source = App.Path & "\Biblio.mdb"
    
    With CommonDialog1
        .DialogTitle = "Backup"
        .Filter = "mdbfles (*.mdb)|*.mdb"
        .ShowSave
        desti = .FileName
    backfile.CopyFile source, desti, True
    MsgBox "Databas has been backup", vbInformation
    End With
Exit Sub
err:
Beep
    
End Sub

Private Sub Command2_Click()
On Error GoTo err
    desti = App.Path & "\Biblio.mdb"
With CommonDialog1
    
    .DialogTitle = "Restore"
    .Filter = "Access Files(*.mdb)|*.mdb"
    .ShowOpen
    source = .FileName
End With
backfile.CopyFile source, desti, True
Exit Sub
err:
Beep
End Sub