数据库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据库

共有2391人关注过本帖树形打印复制链接主题：数据库

13775189031

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：815 积分：5652 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/11/3 15:24:00 [只看该作者]

搞定！谢谢！

13775189031

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：815 积分：5652 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/11/9 13:49:00 [只看该作者]

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”的访问被拒绝。

有点甜

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/9 14:51:00 [只看该作者]

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()