Comprimir archivos con turbo power abbrevia

[dec]

Hola,

Bienvenido a estos Foros. Revisa, por favor, la guía de estilo de los mismos, porque, probablemente, te ayudará para sucesivas cuestiones que se te ocurra plantear. Respecto de tu pregunta, la "cosa" está en la línea:

Código Delphi [-]
AbZipKit.StoreOptions := [soRecurse];

¡Con ella estás indicando, precisamente, que se añadan al "Zip" las subcarpetas "recursivamente"!

Nota: Fíjate cómo he editado tu mensaje para encerrar el código Delphi entre las etiquetas [ DELPHI ] y [ /DELPHI ], para que, como puedes ver, el código se muestre debidamente formateado y aun algos más.

[[white_zombie]]

Muchas gracias, tienes razon ese era el fallo ya lo he cambiado.

Gracias por la ayuda.

[[white_zombie]]

Hola de nuevo, acabo de darme cuenta que no he solucionado el problema porque habia puesto esa opcion para que me añadiese tambien las subcarpetas que hay dentro le la carpeta que quiero añadir.

Con otras opciones que he probado soluciono el 1ª problema que he planteado en este hilo pero no me añaden las subcarpetas que hay dentro de la que quiero añadir.

No se si me he explicado bien con tanta carpeta y subcartepa, espero que me entiendan.

[dec]

Hola,

No entiendo bien el problema, puesto que, al principio no querías añadir las subcarpetas, y, entonces, sobraba la línea de código referida arriba, o, a lo menos, la opción "soRecurse". Pero, ahora, dices que quieres añadir las subcarpetas... con lo cual tendrías que añadir la opción que antes quitaste...

Intuyo que te estás refiriendo a cómo se descomprime el archivo "Zip", esto es, a que se "recree" el árbol de carpetas o no. Creo que en este caso la solución no está en las opciones de compresión, sino en las de descompresión. No estoy seguro ahora mismo, ni puedo mirarlo, pero, revisa las opciones de descompresión: es ahí donde puedes optar porque se "recree" el árbol de carpetas o no.

También puede ser que esté completamente equivocado con lo que vengo diciendo. Si es así mis disculpas.

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