vclzip怎么压缩指定子目录?

fisher_older 2012-12-15 11:33:14
现在有路径:
path:= 'D:\Output\Try\MyDir\*.*';

采用vclzip压缩,
ziper.RelativePaths:=true; //是否保持目录结构
ziper.RecreateDirs:=true; //创建目录
ziper.FilesList.Add(UnzipDir+'\*.*'); //添加解压缩文件列表
ziper.Zip; //压缩

结果生成的zip文件,每个子目录都建了一个文件夹,Output->Try->MyDir...
而我希望生成的zip文件中,只包含MyDir子目录。请问各位高手,该怎么实现?多谢!
...全文
110 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
fisher_older 2012-12-16
  • 打赏
  • 举报
回复
正确,多谢,给分!
s11ss 2012-12-15
  • 打赏
  • 举报
回复
ziper.ZipName := 'd:\a.zip'; ziper.RootDir := 'D:\Output\Try\'; ziper.RelativePaths:=true; ziper.FilesList.Add('D:\Output\Try\MyDir\*.*'); ziper.Zip;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧