Bu bileşeni klasör sıkıştırmak için kullanıyorum. Yalnız şöyle bir sorun ile karşılaştım. Sıkıştıracağım klasör içerisinde başka klasör/klasörler varsa onları sıkıştırmıyor. Yani Ana klasörün içerisinde bir dosya varsa ve başka klasörler de varsa sadece o dosyayı sıkıştırıyor. Diğer klasörler ".zip" dosyasına eklenmiyor.
Bu durumla karşılaşan oldu mu? Sıkıştırma işlemi fonksiyonum.
Kod: Tümünü seç
procedure CreateZipFolder(azipfilename : string);
var
zip : TAbZipper; j:integer;
begin
zip := TAbZipper.Create(nil);
try
begin
zip.BaseDirectory :='D:\Drivers Backup\';
zip.FileName := azipfilename;
zip.StoreOptions := [soStripDrive, soStripPath, soRemoveDots];
zip.addfiles('*.*', 0);
zip.CompressionMethodToUse := smBestMethod;
zip.Save;
zip.CloseArchive;
end
finally
zip.Free;
end;
end;