Comment créer un zip avec le VB ?

je travaille sur une application, j'ai programmée avec le vb script, en faite je crée un dossier (DateTimeFormat|dd/mm/yyyy) ou je stocke les données de la journée, donc pour chaque jour j'ai des données mais la taille est importante (trop de données), j'aimerai utiliser un zip pour réduire la taille de mes dossiers, comment faire ? Merci d'avance

J'ai trouvé quelque chose qui pourrait t'interesser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Compresses the folder C:\Scripts.   strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * from Win32_Directory where name = 'c:\\Scripts'") For Each objFolder in colFolders errResults = objFolder.Compress Wscript.Echo errResults Next

---

D'autre exemple de script interessant se trouve à cette adresse :
http://www.activexperts.com/activmon...ement/scripts/