on error resume next
FileCopy g_dbPath, destFilePath
if err.number <> 0 then
msgbos "数据库备份失败,请确保所有用户退出系统!" & vbcrlf & err.description
end if
on error goto 0
' 全局数据库名
Public g_db As Database
' access数据库名称
Public g_dbPath As String
' 建立数据库链接
Set wrks = CreateWorkspace("", "admin", "")
Set g_db = wrks.OpenDatabase(g_dbPath, False, False)
' 备份数据库
Set g_db = Nothing
Set wrks = Nothing
FileCopy g_dbPath, destFilePath