请问高手: 怎样用vclzip控件压缩一个文件夹下的多级目录?

Question

用vclzip控件确实比较好用，但是怎样把一个文件夹(此文件夹下有多级目录,每级目录里有多个文件)压缩成一个zip文件,
要实例代码,我不想看目录(C:\test\a\b\c)是写死的例子的代码,要根据被压缩的文件的目录,压缩成的文件也具有一样的目录结构和文件.

Answer 1

With VCLZip1 do
begin
  IncludeHiddenFiles:=true;
  IncludeSysFiles:=true;
  IncludeReadOnlyFiles:=true;
  IncludeArchiveFiles:=true; ZipName := 'F:\SOMEDIR\BACKUP.RAR';
  
MultiZipInfo.MultiMode := mmBlocks;
MultiZipInfo.FirstBlockSize := 700000; //*approximately 1/2 diskette*/
MultiZipInfo.BlockSize := 1457600;     //*entire diskette*/
FilesList.Add('F:\test\*.*');
Recurse := True;       //* Recurse directories*/
Zip;