Saludo a todos.
Necesito ayuda para obtener archivos multivolúmenes comprimidos en el disco duro. Para ello, uso el componente Zipmaster. He logrado comprimir pero no dividir. No importa si el resultado es *.zip o *.rar Yo uso Delphi 7 y la versión de Zipmaster es zm179setup1004
Mis agradecimientos a todos por adelantado.
El código que he usado es el siguiente:
Código Delphi
[-]
Procedure TF_MA.Comprimir;
var
Origen, Destino, Nombre: String;
begin
Nombre:= LE_NombreCoprimido.Text;
Origen:=LE_Dir_Origen.Text+'\*.*';
Destino:=LE_Dir_Destino.Text+'\';
ZipMaster1.DLLDirectory := ExtractFilePath( Application.ExeName );
ZipMaster1.ZipFileName := Destino+nombre+'.zip';
ZipMaster1.TempDir := Origen;
ZipMaster1.FSpecArgs.Clear;
ZipMaster1.FSpecArgs.Add(Origen);
try
ZipMaster1.Add;
except
raise exception.Create( 'Error al comprimir los archivos.' );
end;
end;