以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 备份 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145130) |
-- 作者:13775189031 -- 发布时间:2020/1/9 13:24:00 -- 备份 ![]() ![]() 备份的文件夹里除了压缩包外,还有文件夹,能不能不要文件夹,只有备份的压缩包?(文件夹太大,占空间) 计划管理中的代码如下 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 |