360ITO技术社区  > 问答

订阅问答
smallghost
有用 0 无用

谁用过VCLZip，为啥解压不出子目录呢？

smallghost 发布于 8年前  查看:8317 

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个答案 我要回答»

红尘★笑
红尘★笑 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;

全部就解压好了！

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

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

热门标签

相关文章

周热点

月热点