VCLZip解压的有关问题

VCLZip解压的问题
压缩包里有2个文件夹，解压到当前目录，但是问题是只有一个文件夹可以正常解压
另一个却解压不了，调试发现是文件夹没有创建，然后因为路径不存在发导致解压不成功
问题是为什么第1个文件夹可以创建解压，第2个却不行呢？

代码是这么写的

Delphi(Pascal) code


var
  z: TVCLUnZip;
begin
  z := TVCLUnZip.Create(nil);
  try
    z.ZipName := 'xxxxxx.zip';
    z.ReadZip;
    z.FilesList.Add('*.*');
    z.DestDir := GetCurrentDir;
    z.DoAll := True;
    z.RecreateDirs := True;
    z.OverwriteMode := Always;
    z.UnZip;
  finally
    z.Free;
  end;
end;

------解决方案--------------------

探讨
来人拿分吧，送分了

相关推荐