VB备份ACCESS数据库的方法，代码

这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦

Private Sub bak_Click()

Dim TargetFileName As String     '目标文件名

On Error Resume Next

With cdlog1

    .DialogTitle = "数据备份"

    .InitDir = App.Path

    .FileName = "backup.mdb"

    .Filter = "(数据库)*.mdb|*.mdb"

    .CancelError = True

    .ShowSave

    TargetFileName = .FileName

End With

If Right$(App.Path, 1) <> "/" Then spath = App.Path & "/"

ssource = spath & "db2.mdb"

    

    On Error GoTo sjbf_error

    

    If Dir$(TargetFileName) <> "" Then

        If MsgBox("文件已存在,确认替换它！", vbYesNo + vbQuestion) = vbNo Then Exit Sub

        Kill TargetFileName     '删除文件

        FileCopy ssource, TargetFileName    '复制文件

        'DBEngine.CompactDatabase ssource, TargetFileName    '压缩文件

        MsgBox "数据备份成功！", vbInformation

    Else

        FileCopy ssource, TargetFileName    '复制文件

        'DBEngine.CompactDatabase ssource, TargetFileName    '压缩文件

        MsgBox "数据备份成功！", vbInformation

    End If

sjbf_error:

    If Err = 70 Then

        MsgBox "数据库正在使用，请关闭所有数据窗口，从新开始备份", vbExclamation

    End If

End Sub