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

这个代码其实也适用于其它类型文件的复制，要修改一下其中的语句哦~Private Sub bak_Click() Dim TargetFileName As String '目标<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 On Error Resume Next With cdlog1 .DialogTitle = "数据备份" .InitDir = App.Path .FileName = "backup.mdb" .Filter = "(<a href="https://www.jb51.cc/tag/shujuku/" target="_blank" class="keywords">数据库</a>)*.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 Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>已存在,确认替换它！",vbYesNo + vbQuestion) = vbNo Then Exit Sub Kill TargetFileName '<a href="https://www.jb51.cc/tag/shanchu/" target="_blank" class="keywords">删除</a><a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> FileCopy ssource,TargetFileName '复制<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> 'DBEngine.CompactDatabase ssource,TargetFileName '压缩<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a> Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "数据备份成功！",vbInformation Else FileCopy ssource,vbInformation End If sjbf_error: If Err = 70 Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "<a href="https://www.jb51.cc/tag/shujuku/" target="_blank" class="keywords">数据库</a>正在使用，请<a href="https://www.jb51.cc/tag/guanbi/" target="_blank" class="keywords">关闭</a>所有数据窗口，从新开始备份",vbExclamation End If End Sub