Comprimir archivos con turbo power abbrevia

[Casimiro Noteví]

Como dice dec, esa es la forma de usarlo, indicando el directorio "base" en relación al cual se grabará.

Ejemplo de código en uno de mis programas:

  zip.FileName := cPath + cFicheroZip;
  zip.BaseDirectory := ExtractFilePath(ParamStr(0));
  zip.Password := cClaveEncriptar;
  zip.AutoSave := true;
  zip.AddFiles(cFichero,0);
  zip.AutoSave := False;
  zip.CloseArchive;

Por cierto, en los ejemplos y en la ayuda viene especificado.

[[white_zombie]]

Hola

Ahora si que va bien, muchas gracias por las respuestas y por el tiempo que os habeis tomado en buscarlas.

La verdad es que a veces la respuesta esta delante de las narices y no se ve, yo estaba empeñado en buscar la solucion en las opciones de busqueda y compresion pero bueno ya esta solucionado, cosa que os agradezco.


Un Saludo.

[solemno]

Primero pido disculpas por revivir un hilo tan viejo pero es que me ha servido muchisimo para empezar con abbrevia, y como mi pregunta es relacionada a este hilo......
Al grano:
Tengo en un formulario un GroupBox con 3 opciones:

1. Hacer BackUp de la BD
2. Hacer BackUp de la BD e Imágenes
3. Hacer BackUp de la BD, Imágenes y Reportes

Uso para tal efecto un componente AbZipKit y sigo los paso arriba descriptos para comprimir los archivos con todos las subcarpetas y "todo eso".

Código Delphi [-]
     // Nos situamos en el directorio de la BD
    AbZipKit.BaseDirectory := ExtractFilePath(Application.ExeName)+'\BD';
    AbZipKit.AddFiles('*.*', 0); // Y añadimos todos sus archivos
    // Nos situamos en el directorio de las imagenes
    AbZipKit.BaseDirectory := ExtractFilePath(Application.ExeName)+'\Imgs';
    AbZipKit.AddFiles('*.*', 0); // Y añadimos todos sus archivos
    AbZipKit.CloseArchive;
    AbZipKit.Save

El Problema que me surje es que a la hora de "rescatar el BackUp" están todos los archivos mesclados.

Quiciera si alguien puede ayudarme hacer algo parecido a esto:

Código Delphi [-]
 AbZipKit.StoreOptions := [soRecurse];
// Nos situamos en el directorio de la aplicación
    AbZipKit.BaseDirectory := ExtractFilePath(Application.ExeName);
//en este punto me gustaria poder filtrar las carpetas a tener en cuenta
//a la hora de comprimirlas, por ejemplo: '\BD' + '\Imgs' + '\Reports' pero no se como.
//entonces en el archivo comprimido quedaría todo en su carpeta original
   AbZipKit.AddFiles('*.*', 0); // Y añadimos todos sus archivos  
   AbZipKit.CloseArchive;
   AbZipKit.Save;