[jamiguel77]

lo que quisiera es: que guardara el path completo de cada carpeta, por que si ejecuto este codigo:

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  AbZipper, AbArcTyp, AbZBrows, AbMeter, AbBrowse, AbBase, AbZipKit, AbZipPrc, AbZipTyp;
type
  TForm1 = class(TForm)
    AbZipKit: TAbZipKit;
    Button1: TButton;
    Label1: TLabel;
    AbMeter1: TAbMeter;
    AbMeter2: TAbMeter;
    Label2: TLabel;
    AbVCLMeterLink2: TAbVCLMeterLink;
    AbVCLMeterLink1: TAbVCLMeterLink;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    AbZipKit.StoreOptions := [soRecurse];
    AbZipKit.FileName := 'c:\copia.zip';
    AbZipKit.BaseDirectory := 'C:\t';
    abzipkit.CompressionMethodToUse:=smBestMethod;
    abzipkit.DeflationOption:=doMaximum ;
    AbZipKit.AddFiles('*.*',0);
    AbZipKit.BaseDirectory := 'C:\temp';
    AbZipKit.AddFiles('*.*',0);
    AbZipKit.CloseArchive;
    AbZipKit.Save;
  finally
    showmessage('Operacion Completada');
  end;
end;
end.

me agrega lo de las 2 carpetas en un archivo y no se que archivos pertenecen a cada carpeta, por lo que respecta a lo de HOT no marca ningun error ya lo probe abriendo un archivo de excel(claro el archivo de excel esta incluido en la ruta c:\t), no marca ningun error, eso esta bien, pero no lo agrega ademas de que surge, otra pregunta:

como captar el archivo que no pudo comprimir? para asi guardarlo en un log y despues cuando lo revise darme cuenta que nose comprimio el archivo.

Gracias