Fórum Compactando arquivos no TVCLZIP #225891
14/04/2004
0
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;
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
Curtir tópico
+ 0
Responder
Posts
14/04/2004
Flávio Luiz
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)