Quero compactar a pasta toda, mas não consigo!
28/11/2005
0
No código abaixo ele me deixa escolher apenas arquivos...
Como poderia pegar a pasta toda?
if OpenDialogFiles.Execute then
begin
for i:= 0 to OpenDialogFiles.Files.Count -1 do
begin
if ListBox1.Items.IndexOf(OpenDialogFiles.Files[i]) = -1 then
ListBox1.Items.Append(OpenDialogFiles.Files[i]);
end;
end;
Como poderia pegar a pasta toda?
if OpenDialogFiles.Execute then
begin
for i:= 0 to OpenDialogFiles.Files.Count -1 do
begin
if ListBox1.Items.IndexOf(OpenDialogFiles.Files[i]) = -1 then
ListBox1.Items.Append(OpenDialogFiles.Files[i]);
end;
end;
Wgm8
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)