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

共有2639人关注过本帖树形打印复制链接主题：备份

13775189031

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

加好友

发短信

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

备份

Post By：2020/1/9 13:24:00 [只看该作者]

此主题相关图片如下：1578547172(1).png

备份的文件夹里除了压缩包外，还有文件夹，能不能不要文件夹，只有备份的压缩包？（文件夹太大，占空间）

计划管理中的代码如下

Dim fName = "\\172.17.57.200\jsdlzb-pub\辅机事业部\辅机生产采购管理系统数据备份\" & 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()