Discussion :

[Papy214]

Hello tous

Avant le w-e, je cherche à faire un zip avec le TZipFile de RIO en VCL.

J'ai l'impression qu'il n'y a pas moyen de conserver une arborescence dans la structure du zip.
Vous confirmez ou j'ai juste pas vu l'option qui va bien ?

[SergioMaster]

Avant le w-e

Avant le week-end à 17h52 le vendredi trop tard

donc avec un peu de retard j'ai (évidemment) fait un test rapide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
uses System.Zip;
 
procedure TForm47.btnZipClick(Sender: TObject);
var AZip : TZipFile;
begin
AZip:=TZipFile.Create;
AZip.ZipDirectoryContents(Edit1.Text,DirToZip.Text);
end;

et j'ai la structure dans mon zip (j'ai même été surpris par vitesse) . Mais peut-être est-ce que tu procèdes fichier par fichier ?

[Papy214]

Merci Serge mais effectivement je le fais fichier par fichier.
J'ai fini par trouver la solution. Il faut utiliser le second paramètre pour définir la "position" dans le fichier zip.

Zip.Add('.\dossier1\prog.ico', 'dossier1\prog.ico');

Sinon, tous les fichiers se retrouvent au même niveau (et pourtant ils ont le même nom dans l'archive).