Comprimir archivos con turbo power abbrevia

[[white_zombie]]

Gracias, lo mirare a ver si es eso.

[[white_zombie]]

Hola, sigo teniendo un problema con abbrevia.

Voy a poner un ejemplo.
Quiero meter en un zip la carpeta que esta en esta ruta

C:\Documents and Settings\Usuario\Mis documentos\Mis eBooks

y para eso utilizo lo siguiente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
 begin

       AbZipKit := TAbZipKit.Create(Self);
   try
     AbZipKit.FileName := 'C:\copia.zip';
     AbZipKit.StoreOptions := [soRecurse];
     abzipkit.CompressionMethodToUse:=smBestMethod;
     abzipkit.DeflationOption:=doNormal  ;
     AbZipKit.AddFiles('C:\Documents and Settings\Usuario\Mis documentos\Mis eBooks\*.*', faAnyFile );
     AbZipKit.CloseArchive;
     AbZipKit.Save;
   finally
     AbZipKit.Free;
   end;

 end;

La opcion soRecurse la pongo para que tambien añada al 'zip' las subcarpetas que hay dentro de mis ebooks y no solo los archivos.

Hasta aqui todo bien el problema viene que al abrir el zip me encuentro con todas las carpetas de la ruta, es decir , para llegar a Mis eBooks tengo que abrir Documents and Settings\usuario\etc...
Se que esto pasa por la opcion soRecurse pero si no la pongo y la carpeta que quiero añadir al ZIP tiene subcarpetas no me las añade.
He probado a combinarla con otras opciones o a poner otras y quitar esta pero el resultado no me sirve.

Creo que me he explicado mas o menos.
Lo que quiero es añadir una carpeta y sus correspondients subcarpetas y que al abrir el zip me salga directamente la carpeta y no que me cree las carpetas de la ruta y dentro la que he querido añadir.

Si lo que quiero es posible que alguien me lo diga y si no es asi que me lo diga tambien.

Gracias.

[dec]

Hola,

Te explicas bien, quiero decir, que, comprendo lo que tratas de explicar. Sin embargo, haciendo alguna que otra prueba, pienso que el componente tiene algún problema en este sentido: he tratado de seguir la ayuda del componente para esto que nos ocupa, pero, o no doy en el clavo, o, como digo, hay un error de implementación en el propio componente, a lo menos, ya digo, en lo que nos ocupa. No se me ocurre qué decirte salvo esto... tal vez podrías contactar con quien desarrolla estos componentes por ver si pueden echarte una mano; es posible que sea un error, como te digo, y que esté ya para subsanarse o algo así... te deseo suerte, en todo caso.

[[white_zombie]]

Hola

Gracias por la respuesta, con ella he confirmado lo que pensaba, que es un error del comoponente porque por mas que he mirado la ayuda no he visto nada para arreglarlo.

Intetare usar otra herramienta aunque esta a parte de este fallo me gustaba.

Si sabes de alguna herramienta parecida y que vaya bien te agradeceria que me la indicases.

Muchas gracias.

[dec]

Hola,

Pues sí, sí que sé de otros componentes que funcionan bastante bien, pero, si no los mencioné antes es porque son gratuitos, en su versión "personal" (mira su licencia porque no sé hasta qué punto puedes usarlo en ciertas aplicaciones) y son los componentes ZipForge. Yo los he utilizado y no me fueron mal. De todos modos, a poco que busques en páginas como Torry's Delphi Pages encontrarás otros componentes para lo que te es menester: comprimir y descomprimir archivos Zip. También en estos Foros se ha tratado este tema y se han referido componentes para estos menesteres: busca en los foros por "comprimir archivos" y palabras-clave semejantes a ver si tienes suerte.

De todos modos, hombre, yo creo que no estaría demás que escribieras en el Foro de los componentes conque lo hemos intentado primeramente, porque, muy posiblemente obtengas respuestas a la cuestión que nos preocupa. No pierdes nada y es posible que logres una solución: por mucho que hallamos probado es posible que nos pasara inadvertida la solución. En fin, por probar, ya digo que no pierdes nada en absoluto.

[Casimiro Noteví]

Por casualidad... ¿has mirado los ejemplos que trae?.

Puede que encuentres algo interesante en ellos.

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