Compactando arquivos no TVCLZIP

Delphi

14/04/2004

e ai pessoal,

gostaria de saber o que está dando errado.. pois nao está gerando o arquivo ZIP.... o cógigo não está dando erro :).....
segue o código abaixo......

procedure TForm1.Button1Click(Sender: TObject);
var
Dir, Anexo: String;
begin
Dir := ´C:\zips\´;
label1.Caption := Dir;
Zip.FilesList.Clear;
Zip.ZipName := ´teste.zip´;
Zip.FilesList.Add(Dir+´*.RTM´);
Zip.RootDir := Dir+´\´;
Zip.DestDir := Dir+´\´;
Zip.Zip;
end;


Wbrunett

Wbrunett

Curtidas 0

Respostas

Flávio Luiz

Flávio Luiz

14/04/2004

cara, eu alterei o seu código para ficar da forma que eu utilizo para criar os arquivos compactados, faça um teste acho que deve funcionar
inté...

procedure TForm1.Button1Click(Sender: TObject);
var
Dir, Anexo: String;
Arquivos : Integer;
begin
Dir := ´C:\zips\´;
label1.Caption := Dir;
Zip.ZipName := ´teste.zip´;
Zip.FilesList.Clear;
Zip.FilesList.Add(Dir+´*.RTM´);
Arquivos := Zip.Zip;
end;


GOSTEI 0
POSTAR