备份数据库和还原数据库

备份数据库
Private Sub mnudbasecopy_Click()
    On Error Resume Next
    Dim tishi As String
    tishi = "智能报价系统.mdb文件是智能报价系统系统重要的数据文件,可手动把" & vbCrLf & vbCrLf & CheckFilePath(App.Path) & "智能报价系统.dbf" _
            & vbCrLf & vbCrLf & "文件备份在安全的地方,妥善保存,以便以后恢复之用."
    API.CopyFile CheckFilePath(App.Path) & "智能报价系统.mdb", CheckFilePath(App.Path) & "智能报价系统.dbf"
    MsgBox CheckFilePath(App.Path) & "智能报价系统.dbf", vbInformation, "备份成功"
    MsgBox tishi, vbInformation, "警告"
End Sub

'还原数据库
Private Sub mnudbasehf_Click()
    On Error Resume Next
    If Dir(CheckFilePath(App.Path) & "智能报价系统.dbf") <> vbNullString Then
        If MsgBox("确认恢复数据库吗？这将清除现在的数据！！", vbQuestion Or vbYesNo) = vbYes Then
            API.CopyFile CheckFilePath(App.Path) & "智能报价系统.dbf", CheckFilePath(App.Path) & "智能报价系统.mdb"
            MsgBox "数据库恢复成功", vbInformation, "提示"
            Call Form_Load
        End If
    Else
        MsgBox "您没有备份数据库备份文件"
    End If
End Sub

'文件备份
Public Sub CopyFile(sourcefile As String, destfile As String)
          Dim Bytearray()     As Byte, filesize       As Long
          Open sourcefile For Binary Access Read As #1
          Open destfile For Binary Access Write As #2
          filesize = LOF(1)
          ReDim Bytearray(filesize)
          Get #1, , Bytearray
          Put #2, , Bytearray
          Close 1
          Close 2
End Sub