VclZip壓縮資料夾

2021-09-08 04:05:07 字數 836 閱讀 9331

壓縮指定路徑myzipdir下的資料夾b及b目錄下的所有檔案和檔案b.txt

function zipdir(zipmode:integer;zipcontrol:tvclzip;myzipname,myzipdir:string

):boolean;

begin

result:=false;

trywith 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;

VclZip壓縮資料夾

壓縮指定路徑myzipdir下的資料夾b及b目錄下的所有檔案和檔案b.txt function zipdir zipmode integer zipcontrol tvclzip myzipname,myzipdir string boolean begin result false trywith...

python壓縮資料夾

usr bin python encoding utf 8 import time import os zip a whole directory and its sub directories and files os.walk 可以得到乙個三元tupple dirpath,dirnames,fi...

python 壓縮資料夾

def zip ya start dir start dir start dir 要壓縮的資料夾路徑 file news start dir zip 壓縮後資料夾的名字 z zipfile.zipfile file news,w zipfile.zip deflated for dir path,d...