主题：数据库

我的帖子怎么不见了/

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

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

在计划管理里设置“备份”，把服务器上的文件夹备份到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("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)
Dim zip As New zipFile
zip.Create(fname)
zip.AddFolder("G:\生产采购管理系统备份")
zip.Close()

 

一直显示访问被拒绝，在G盘里的备份直接是文件夹，不是压缩文件

.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.10.9.1
错误所在事件：计划备份
详细错误信息：
对路径“G:\生产采购管理系统备份\20181109134643”的访问被拒绝。

msgbox(1)这句是什么意思？

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

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

 

没反应？？