- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]备份 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111136)
-- 发布时间：2017/12/15 17:53: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
此主题相关图片如下：beifen.png
-- 发布时间：2017/12/15 18:01:00
--
你选择保存的路径，不能是项目内部，换一个保存的位置试试。
-- 发布时间：2017/12/15 18:04:00
--
都试过，一样。
也修改成
FileSys.CopyDirectory(ProjectPath, "d:\\甲")
zip.AddFolder("d:\\甲")
[此贴子已经被作者于2017/12/15 18:05:21编辑过]
-- 发布时间：2017/12/15 18:10:00
--
论坛有方法，删除BIN文件，试过，暂未发现问题。有问题再请教，感谢！
-- 发布时间：2017/12/15 18:15:00
--
弄不明白，不行。
-- 发布时间：2017/12/15 18:16:00
--
以下是引用xh2207在2017/12/15 18:04:00的发言：
都试过，一样。
也修改成
FileSys.CopyDirectory(ProjectPath, "d:\\甲")
zip.AddFolder("d:\\甲")
[此贴子已经被作者于2017/12/15 18:05:21编辑过]
说的是你zip的路径。你选择的保存路径，不能是项目文件夹内部。