Ver Mensaje Individual
  #1  
Antiguo 29-11-2005
Avatar de white_zombie
[white_zombie] white_zombie is offline
Miembro Premium
 
Registrado: nov 2005
Ubicación: Zaragoza - España
Posts: 187
Reputación: 19
white_zombie Va por buen camino
Comprimir archivos con turbo power abbrevia

Hola a todos, tengo un problema al comprimir archivos con abbrevia y es que al añadir los archivos al .zip me añade no solo los archivos sino todas las carpetas de la ruta que escribo.
El codigo no es exactamente este, pero como ejemplo vale:

Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 var
    AbZipKit: TAbZipKit;
  begin
    AbZipKit := TAbZipKit.Create(Self);
    try
      AbZipKit.FileName := 'c:\copia.zip';
      AbZipKit.StoreOptions := [soRecurse];
      abzipkit.CompressionMethodToUse:=smBestMethod;
      abzipkit.DeflationOption:=doMaximum ;
      AbZipKit.AddFiles(C:\Documents and Settings\Usuario\Mis documentos\config.ini, faAnyFile );
      AbZipKit.CloseArchive;
      AbZipKit.Save;
    finally
      AbZipKit.Free;
      showmessage('Operacion Completada');
    end;
  end;
Por si no me he explicado bien, lo que pasa es que añade el fichero config.ini pero dentro de las carpetas Documents and Settings\Usuario\Mis documentos.
Lo que quiero saber es como se puede hacer para que me añada el archivo pero sin las carpetas.

Gracias por adelantado por las posibles respuestas.

Última edición por dec fecha: 29-11-2005 a las 10:48:59. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita