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ódigo:
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.