以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  备份  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145130)

--  作者:13775189031
--  发布时间: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()

--  作者:有点蓝
--  发布时间:2020/1/9 13:47:00
--  
压缩后把文件夹整个删除不就行了
--  作者:13775189031
--  发布时间:2020/1/9 13:53:00
--  
代码怎么写啊?


--  作者:有点蓝
--  发布时间:2020/1/9 13:55:00
--  
http://www.foxtable.com/webhelp/topics/0331.htm