压缩包里有2个文件夹,解压到当前目录,但是问题是只有一个文件夹可以正常解压
另一个却解压不了,调试发现是文件夹没有创建,然后因为路径不存在发导致解压不成功
问题是为什么第1个文件夹可以创建解压,第2个却不行呢?代码是这么写的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;
另一个却解压不了,调试发现是文件夹没有创建,然后因为路径不存在发导致解压不成功
问题是为什么第1个文件夹可以创建解压,第2个却不行呢?代码是这么写的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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货