专家坐堂-点击备份、恢复后，出现如下提示见图：Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  点击备份、恢复后，出现如下提示见图：  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106211)

--  作者：JSXSHW585
--  发布时间：2017/9/4 17:19:00
--  点击备份、恢复后，出现如下提示见图：

此主题相关图片如下：恢复方面.jpg

点击备份、恢复后，出现如下提示见图：
此主题相关图片如下：备份方面.png

--  作者：有点蓝
--  发布时间：2017/9/4 18:05:00
--
是如何回复的，具体代码看看。

1、有些自动生成的系统文件，如图片缩略图，是不能被覆盖的
2、可能是杀毒软件影响

--  作者：JSXSHW585
--  发布时间：2017/9/5 10:35:00
--  关闭杀毒软件还是那样，提示错误，一样的错误提示
关闭杀毒软件还是那样，提示错误，一样的错误提示。
老师写的代码：
备份

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

还原

Dim dlg As new OpenFileDialog
dlg.Filter = "压缩文件|*.zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Open(dlg.FileName)
    zip.ExtractAll(ProjectPath)
    zip.Close()
    msgbox("已恢复")
    \'Application.restart
End If

--  作者：有点甜
--  发布时间：2017/9/5 10:47:00
--

备份

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

还原

Dim dlg As new OpenFileDialog
dlg.Filter = "压缩文件|*.zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Open(dlg.FileName)
    FileSys.DeleteDirectory("d:\\test", 2, 2)
    zip.ExtractAll("d:\\test")
    FileSys.CopyDirectory("d:\\test", ProjectPath,True)
    zip.Close()
    msgbox("已恢复")
    \'Application.restart
End If

--  作者：JSXSHW585
--  发布时间：2017/9/5 10:56:00
--  谢谢！已解决。
谢谢！已解决。