Comprimir archivos con turbo power abbrevia

[[white_zombie]]

Hola, si que he mirado en los ejemplos y no he visto nada para resolver este problema aunque puede haber algo y no me he dado cuenta.

Solo me queda esperar a ver si alguien del foro me orienta por el buen camino porque yo ya estoy harto de hacer pruebas y no obtener resultado.

Gracias por la sugerencia.

Un saludo.

[dec]

Hola,

Bien. No hay error alguno en el componente, a lo menos en cuanto a lo que nos ocupa respecta. Me precipité al pensarlo así, puesto que, aunque hize pruebas y demás, no había leído suficiente en la ayuda del método "AddFiles", concretamente, o no hize las suficientes pruebas. Lo siguiente consigue exactamente lo que planteas. Si lo pruebas verás cómo se comprimen todos los archivos, incluyendo los subdirectorios del directorio "Internet Explorer", sin que en el archivo "Zip" quede la ruta completa de dicho directorio, es decir, "C:\Archivos de programa\Internet Explorer\". De todos modos revisa la ayuda del componente, da más de sí, fijo.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  AbZipKit.StoreOptions := [soRecurse];
  AbZipKit.FileName := 'C:\archivo.zip';
  // Nos "situamos" en el directorio que vamos a comprimir
  AbZipKit.BaseDirectory := 'C:\Archivos de programa\Internet Explorer';
  AbZipKit.AddFiles('*.*', 0); // Y añadimos todos sus archivos
  AbZipKit.CloseArchive;
  AbZipKit.Save;
end;

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