怎么把文件压缩到指定目录中？

[szonghao]

我用TVclZip控件做了个压缩的程序，但是不能压缩到指定的目录中，

vclzip1.FilesList.Add('c:\test.txt');

我想问下，怎么把文件压缩到指定目录中？

[wooden954]

用VCLZip还不如使用RAR的命令行来得简单。RAR的选项非常多。

[wzwcn]

var
FVclzip:TVclzip;
begin
FVclzip:=TVclzip.Create(nil);
try
FVclzip.DoAll := true;
FVclzip.FilesList.add('D:\a.txt');
FVclzip.FilesList.add('D:\b.exe');
//加更多的文件
FVclzip.OverwriteMode := always;
FVclzip.StorePaths := false;
FVclzip.AddDirEntriesOnRecurse := true;
FVclzip.ZipName := 'D:\ok.rar';//结果保存到D:\ok.rar

FVclzip.zip;
finally
FVclzip.Free;
end;
end;

[szonghao]

解决了，谢谢！

[hjkto]

jf