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;