Zipper le contenu d'un répertoire

Bonjour,

Je galère depuis un bout de temps pour générer un fichier zip à partir du contenu d'un répertoire.

J'ai une arborescence de répertoire qui ressemble à :
directory
|_ Sous_Directory1
| |_Sous_Sous_Directory1.1
| | |_fichier1_1.txt
|_Sous_Directory2
|_fichier2.txt

Je voudrais génerer un fichier directory.zip qui contiendrait cette arborescence.

J'ai essayé d'utiliser shell.application pour générer un zip mais cette facon de faire ne me convient pas car elle est asynchrone et j'ai besoin de savoir quand la génération du zip est terminée.

J'ai également essayé d'utiliser la classe CGZipFiles trouvée sur le net, mais je ne parviens pas à générer un zip avec l'arborescence décrite prédemment.

Si quelqu'un a une solution à me proposer je suis preneur.

merci d'avance.

7z pourrait faire l'affaire ainsi :

Code:

---

1 2 3 4 5 6 7

Dim Prg$, ZipFile$, lRet&   Private Sub Command1_Click() Prg = "C:\Program Files\7-Zip\7z.exe" ' Modifier le chemin selon la version de Windows ZipFile = "C:\Archive.zip" ' Fichier destination Shell Prg & " a " & ZipFile & " E:\Vbs", vbHide ' E:\Vbs un dossier contenant dossiers, sous-dossiers et des fichiers dans chacun End Sub

---

L'utilisation d'un programme extérieur tel que 7zip serait en fait mon dernier recours si je ne trouve pas d'autre solution.
Je préfèrerais ne pas avoir à dépendre de la présence ou non du logiciel tiers sur la machine.

Il y a un moyen (en VBScript) qui peut être adapté en VB6 au risque d'avoir des erreurs qui semblent insolubles à cause d'une limitation de la DLL utilisée.
Le code est ICI