360ITO技术社区
  • 首页
  • 文章
  • 快讯
  • 讨论
  • 问答
  • 小贴士
  • 代码块
  • 开源
  • 老论坛
登录 | 注册

360ITO技术社区  > 问答

订阅问答
smallghost
有用 0 无用

谁用过VCLZip,为啥解压不出子目录呢?

smallghost 发布于 8年前  查看:7351

VCLUnZip := TVCLUnZip.Create(nil);
      try
        VCLUnZip.ZipName := 'c:\temp\1.zip';
        VCLUnZip.ReadZip;
        VCLUnZip.DoAll := True;
        VCLUnZip.DestDir := 'd:\temp\;
        VCLUnZip.UnZip;
      finally
        FreeAndNil(VCLUnZip);
      end;
直接压了一级目录,不知道为啥了!

delphi

共有1个答案 我要回答»

按时间排 按有用数排 按支持数排
红尘★笑
有用 0 无用
红尘★笑 8年前 | [引述]  [点评] 
0

VCLZip不好用,建议改用ZipForge,在Delphi盒子上有的下载,使用超简单:

Archiver := TZipForge.Create(nil);
      try
        with Archiver do
        begin
          FileName := zipFile;    // zip文件
          OpenArchive;
          try
            BaseDir := destPath;   // 解压到那个目录
            ExtractFiles('*.*');
          finally
            CloseArchive;
          end;
        end;
      finally
        FreeAndNil(Archiver);   
      end;

全部就解压好了!

网友回复/评论仅代表其个人看法,并不表明本社区同意其观点或证实其描述。

请尽量让自己的回复能够对别人有帮助

1.不欢迎无意义的回复/评论和类似“顶”、“沙发”之类没有营养的文字
如果只是想简单的表个态,请点 有用无用支持反对 等按钮
2.发言之前请再仔细看一遍文章,或许是您遗漏、误解了,理性讨论、切莫乱喷
3.严禁发布违法、违规的信息,请勿到处招贴广告、发布软文;
4.如果您发现自己的回复/评论不见了,请参考以上3条
5.不停制造违规、垃圾信息的,账户将被禁止

热门标签

  • android 23
  • Python 22
  • delphi 13
  • SQLite 8
  • Android Studio 8
  • 网络 4
  • MongoDB 4
  • Flask 4
  • Flash 3
  • JavaScript 3
  • Linux 3
  • C++ 2
  • vi/vim 2
  • uWSGI 2
  • PIL 2
  • GitHub 2
  • git 2
  • peewee 2
  • 无线网卡 2
  • 发送数据 2

相关文章

周热点

月热点

Copyright ©2011-2012 360ITO技术社区 All Rights Reserved. | 关于 | 联系我们 | 杭州精创信息技术有限公司 浙ICP备09019653号-26|
▲