频道分类

Delphi VclZip压缩文件夹

作者:admin 来源: 日期:2019/10/23 20:39:59 人气: 标签:

 
压缩指定路径MyZipDir下的文件夹b及b目录下的所有文件和文件b.txt

function ZipDir(zipMode:Integer;zipControl:TVCLZip;MyZipName,MyZipDir:string):Boolean;
  begin
    {压缩指定目录中的文件和文件夹,指定RootDir,否则连同指定目录本身一同压缩}
    Result:=False;
    try
      with zipControl do
      begin
        case zipMode of
          0:RootDir:='';   //指定压缩目录
          1:RootDir:=MyZipDir;
        end;
        OverwriteMode:=Always;//覆盖
        AddDirEntriesOnRecurse:=True;
        RelativePaths:=True;//相对路径
        Recurse:=True;//是否遍历
        RecreateDirs:=True;//创建目录
        StorePaths:=True;//保存路径,如RootDir不指定则保持完成路径(去除盘符外的,需要保持盘符路径设置StoreVolumes属性)
        ZipName:=MyZipName;
        FilesList.Add(MyZipDir+'\b\*.*');
        FilesList.Add(MyZipDir+'\b.txt');
        Zip;
        Result:=True;
      end;
    except
 
    end;
  end;