problema a la hora de comprimir con abbrevia
Hola,
estoy teniendo problemas a la hora de comprimir un archivo, el código que tengo es este:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:= 'C:\Users\dani\Desktop\psrFactura.csv';
Zip := TAbZipper.Create(Application);
zip.FileName:= 'C:\Users\dani\Desktop\psrFactura.zip';
zip.Save;
end;
end.
El problema es que el archivo que se crea con extensión .zip pesa 0 bytes y no se puede abrir, dice que está dañado. ¿alguna idea?
Saludos y gracias.
__________________
La juventud pasa, la inmadurez se supera, la ignorancia se cura con la educación, y la embriaguez con la sobriedad, pero la estupidez dura para siempre. Aristofanes.
|