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