主题：数据库备份与还原

 如果是access数据库或者内部数据源。

 备份：只需要把项目文件夹和access数据文件拷贝一份即可；

http://www.foxtable.com/webhelp/scr/0343.htm

http://www.foxtable.com/webhelp/scr/0342.htm

 还原：只需要把备份的文件，覆盖原来的项目，或者删除原来的重新拷贝过去即可。

可以用projectPath，比如

FileSys.CopyDirectory(ProjectPath, "d:\test")

FileSys.CopyDirectory(ProjectPath, "d:\test")

参考

如果是 mdb 后缀名  http://www.foxtable.com/webhelp/scr/1808.htm

如果是 accdb 后缀名 http://www.foxtable.com/webhelp/scr/1809.htm

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106082&skin=0

19楼就是备份到任意位置啊。

测试没问题。请不要把备份放在项目本身的文件夹内，然后就会报错。

再有，代码这样写

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder(ProjectPath)
    zip.Close()
End If