主题：数据库

如果你access数据库文件直接删除了，是无法恢复的。除非你能恢复access文件。

 

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126267&replyID=846683&skin=1

 

Dim fName = "G:\辅机生产管理系统备份\" & format(Date.now, "yyyyMMddHHmmss") & ".zip"
FileSys.DeleteDirectory("d:\test", 2, 2)
FileSys.CopyDirectory("\\172.17.57.200\jsdlzb-pub\辅机事业部\辅机事业部生产管理系统", "d:\test")
Dim zip As New zipFile
zip.Create(fname)
zip.AddFolder("d:\test")
zip.Close()

那就改成这样

 

Dim fName = "G:\辅机生产管理系统备份\" & format(Date.now, "yyyyMMddHHmmss")
FileSys.CopyDirectory("\\172.17.57.200\jsdlzb-pub\辅机事业部\辅机事业部生产管理系统", fname, True)

Dim fName = "G:\生产采购管理系统备份\" & format(Date.now, "yyyyMMddHHmmss")
FileSys.CopyDirectory("\\172.17.57.200\jsdlzb-pub\辅机事业部\生产采购管理系统", fname, True)
msgbox(1)

Dim zip As New zipFile
zip.Create(fname & ".zip")
zip.AddFolder(fname)
zip.Close()

代码没问题，请认真测试。