Delphi VclZip压缩文件夹

本文整理自网络，侵删。

 
压缩指定路径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;
 

相关阅读 >>

Delphi 获取ie网址收藏夹

Delphi获得文件的版本号

Delphi写com+的心得体会

Delphi 字符串转换为16进制整数 整数转换为16进制字符串

Delphi建立文件的快捷方式

Delphi获取桌面图标

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码

Delphi2010中tresourcestream流使用

Delphi 字符串替换

Delphi 中判断一个字符是中文的方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi VclZip压缩文件夹