CRÉER ET LIRE UN FICHIER ZIP DANS VB
cs_lionalger
Messages postés
18
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
1 avril 2006
-
9 mai 2003 à 22:04
cs_lasof77 Messages postés 2 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 2 juin 2004 - 2 juin 2004 à 11:07
cs_lasof77 Messages postés 2 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 2 juin 2004 - 2 juin 2004 à 11:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7039-creer-et-lire-un-fichier-zip-dans-vb
https://codes-sources.commentcamarche.net/source/7039-creer-et-lire-un-fichier-zip-dans-vb
2 juin 2004 à 11:07
Juste une question : ton code permet de mettre dans un zip, mais pas de compresser? ou alors c'est un paramètre que je n'ai pas vu?
Lasof
23 oct. 2003 à 14:18
La base de registre est pourtant conforme aux données ci dessus.
Plantage sur Set MyZipFile = New SAWZIPLib.Archive
18 sept. 2003 à 17:14
il manquait un fichier zlib.dll qui est livré avec le programme d'install du site créateur.
il suffit d'avoir les 2 fichiers sawzip.dll + luidans system et les infos registre et hop
<<<((((cf registre (ça fait un peu long mais autant le mettre :)
REGEDIT4
[HKEY_CLASSES_ROOTCLSID{8BA2FE8E-8506-11D4-BFE2-CB5FED326646}]
@="Archive Class"
[HKEY_CLASSES_ROOTCLSID{8BA2FE8E-8506-11D4-BFE2-CB5FED326646}ProgID]
@="SAWZip.Archive.1"
[HKEY_CLASSES_ROOTCLSID{8BA2FE8E-8506-11D4-BFE2-CB5FED326646}VersionIndependentProgID]
@="SAWZip.Archive"
[HKEY_CLASSES_ROOTCLSID{8BA2FE8E-8506-11D4-BFE2-CB5FED326646}Programmable]
[HKEY_CLASSES_ROOTCLSID{8BA2FE8E-8506-11D4-BFE2-CB5FED326646}InprocServer32]
@="C:\WINDOWS\SYSTEM\SAWZIP.DLL"
"ThreadingModel"="Apartment"
[HKEY_CLASSES_ROOTCLSID{8BA2FE8E-8506-11D4-BFE2-CB5FED326646}TypeLib]
@="{8BA2FE81-8506-11D4-BFE2-CB5FED326646}"
[HKEY_CLASSES_ROOTCLSID{8BA2FE90-8506-11D4-BFE2-CB5FED326646}]
@="Files Class"
[HKEY_CLASSES_ROOTCLSID{8BA2FE90-8506-11D4-BFE2-CB5FED326646}ProgID]
@="SAWZip.Files.1"
[HKEY_CLASSES_ROOTCLSID{8BA2FE90-8506-11D4-BFE2-CB5FED326646}VersionIndependentProgID]
@="SAWZip.Files"
[HKEY_CLASSES_ROOTCLSID{8BA2FE90-8506-11D4-BFE2-CB5FED326646}Programmable]
[HKEY_CLASSES_ROOTCLSID{8BA2FE90-8506-11D4-BFE2-CB5FED326646}InprocServer32]
@="C:\WINDOWS\SYSTEM\SAWZIP.DLL"
"ThreadingModel"="Apartment"
[HKEY_CLASSES_ROOTCLSID{8BA2FE90-8506-11D4-BFE2-CB5FED326646}TypeLib]
@="{8BA2FE81-8506-11D4-BFE2-CB5FED326646}"
[HKEY_CLASSES_ROOTCLSID{8BA2FE92-8506-11D4-BFE2-CB5FED326646}]
@="File Class"
[HKEY_CLASSES_ROOTCLSID{8BA2FE92-8506-11D4-BFE2-CB5FED326646}ProgID]
@="SAWZip.File.1"
[HKEY_CLASSES_ROOTCLSID{8BA2FE92-8506-11D4-BFE2-CB5FED326646}VersionIndependentProgID]
@="SAWZip.File"
[HKEY_CLASSES_ROOTCLSID{8BA2FE92-8506-11D4-BFE2-CB5FED326646}Programmable]
[HKEY_CLASSES_ROOTCLSID{8BA2FE92-8506-11D4-BFE2-CB5FED326646}InprocServer32]
@="C:\WINDOWS\SYSTEM\SAWZIP.DLL"
"ThreadingModel"="Apartment"
[HKEY_CLASSES_ROOTCLSID{8BA2FE92-8506-11D4-BFE2-CB5FED326646}TypeLib]
@="{8BA2FE81-8506-11D4-BFE2-CB5FED326646}"
>>>)))
18 sept. 2003 à 15:48
J'ai le refus de la création (New) de l'objet sous Excel.
ça serait bien de pouvoir l'utiliser aussi :)
...je vais voir sur le site précité http://users.skynet.be/saw j'ai installé l'appli pour avoir le source et hop ça marche sur Excel
Donc c un pb de registre :)
18 sept. 2003 à 15:36
J'ai le refus de la création (New) de l'objet sous Excel.
ça serait bien de pouvoir lutiliser aussi :)
je vais voir sur http://users.skynet.be/saw/sawzip.htm si ya kkechose à ce sujet mais si kkun sait le faire :) merci de son aide
11 mai 2003 à 22:09
11 mai 2003 à 21:42
@+, Pascal
11 mai 2003 à 04:13
Voici le code
********************************************************
Option Explicit
Private Sub Form_Load()
Dim MyZipFile As New SAWZIPLib.Archive
Set MyZipFile = New SAWZIPLib.Archive
MyZipFile.Create ("d: emp oto.zip")
MyZipFile.Open ("d: emp oto.zip")
MyZipFile.Comment = "Fichier ZIP créé avec VB"
Debug.Print MyZipFile.Name
MyZipFile.Files.AddFileByName "d: empOutCommandLine.exe", 0, True, False
MyZipFile.Close
Set MyZipFile = Nothing
End Sub
10 mai 2003 à 19:14
http://users.skynet.be/saw/sawzip.htm
10 mai 2003 à 12:51
PS: tu devrais quand meme modifier ton zip avec les deux commentaires ci-dessus !
10 mai 2003 à 10:09
t'as oublié un terme, en fait il faut juste modifier la 1ère ligne comme celà :
Dim MyZipFile As New SAWZIPLib.Archive
sinon, ca marche pas !
10 mai 2003 à 03:19
"Set MyZipFile = New SAWZIPLib.Archive"
"Le composant ActiveX ne peut créer l'objet".
9 mai 2003 à 22:04