主题：数据库

我的帖子怎么不见了/

误删Access数据库，能否恢复foxtable里的表格？

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

那怎样能实现access数据库和项目同时备份？

 

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

 

在计划管理里设置“备份”，把服务器上的文件夹备份到G盘，是这样么？

 

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.DeleteDirectory("G:\辅机生产管理系统备份", 2, 2)
    FileSys.CopyDirectory("\\172.17.57.200\jsdlzb-pub\辅机事业部\辅机事业部生产管理系统", "G:\辅机生产管理系统备份")
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder("G:\辅机生产管理系统备份")
    zip.Close()
End If

可是执行下来没有按编码存储到G盘，保存到了“库\文档”？

显示错误

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.10.9.1
错误所在事件：计划备份
详细错误信息：
在某些文件和目录下无法完成操作。有关详细信息，请参阅该异常的 Data 属性。

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") & ".zip"
FileSys.DeleteDirectory("G:\辅机生产管理系统备份", 2, 2)
FileSys.CopyDirectory("\\172.17.57.200\jsdlzb-pub\辅机事业部\辅机事业部生产管理系统", "G:\辅机生产管理系统备份")
Dim zip As New zipFile
zip.Create(fname)
zip.AddFolder("G:\辅机生产管理系统备份")
zip.Close()

 

还是显示：

 

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.10.9.1
错误所在事件：计划备份
详细错误信息：
在某些文件和目录下无法完成操作。有关详细信息，请参阅该异常的 Data 属性。

那就改成这样

 

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