Hola a tod@s.
Normalmente uso Zipmaster para comprimir/descomprimir archivos pero ahora se me plantea la necesidad de comprimir una carpeta que tiene otras carpetas con archivos dentro. He estado echando un vistazo y hace tiempo había un post que se quedó inconcluso en el que Casimiro recomendaba activar la propiedad "AddRecurseDirs" pero nada, lo ejecuto, no da error pero tampoco crea el fichero. La situación es la siguiente:
Tengo estas carpetas:
C:\Carpeta\Carpeta1
C:\Carpeta\Carpeta2
C:\Carpeta\Carpeta3
cada una con sus archivos dentro.
Mi código sería:
Código Delphi
[-]
ZipMaster.ZipFileName := 'C:\TEMP\carpeta.zip';
ZipMaster.FSpecArgs.Clear;
ZipMaster.FSpecArgs.Add('C:\Carpeta\*.*');
try
ZipMaster.Add;
except
raise exception.Create( 'Error al comprimir los archivos.' );
end;
Como comentaba, teniendo la propiedad "AddRecurseDirs" en True ejecuto esas líneas y no da error pero tampoco crea el fichero.
Saludos