主题：备份

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

计划管理中的代码如下

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