| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于压缩文件中加文件夹 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175837) |
| -- 作者：newsun2k -- 发布时间：2022/3/21 14:53:00 -- 关于压缩文件中加文件夹 下面是帮助中的代码： Dim zip As New
zipFile 生成的压缩文件，没有publish这个根文件夹，而是直接是publish下的全部文件。 有没办法在生成的压缩文件里面，首先创建一个publish文件夹，然后再导入全部文件？ |
| -- 作者：有点蓝 -- 发布时间：2022/3/21 14:57:00 -- 电脑文件夹c:\\publish里再建一个publish目录，就是c:\\publish\\publish，文件放到c:\\publish\\publish里面，然后同样代码压缩即可 |
| -- 作者：newsun2k -- 发布时间：2022/3/21 15:09:00 -- 类似的文件有很多，不好人工操作，咋整？zip文件里面不能先建一个文件夹？ |
| -- 作者：有点蓝 -- 发布时间：2022/3/21 15:24:00 -- 那就只能逐个文件处理了 Dim zip As New zipFile zip.Create("c:\\data\\backup.zip") For Each File As String In FileSys.GetFiles("c:\\publish") zip.AddFile(File, "publish\\" & FileSys.GetName(File)) Next zip.Close() |
| -- 作者：newsun2k -- 发布时间：2022/3/21 15:31:00 -- 谢谢，还需要带上子目录及子目录里面的文件，咋整 |
| -- 作者：有点蓝 -- 发布时间：2022/3/21 15:37:00 -- 做个递归，如果有子目录，调用递归函数处理 |