AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 05 22:36:05
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRÉER ET LIRE UN FICHIER ZIP DANS VB


Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 09/05/2003 Date de mise à jour : 09/05/2003 14:53:46 Vu / téléchargé: 3 596 / 467
Auteur : facdaar Ecrire un message privé
Note :
5,5 / 10 - par 2 personnes
5,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

Description

Permet, via l'utilisation d'une dll fournie, de créer, modifier, ajouter du commentaire, lire un fichier zip.
Le projet fournit est un exemple ultra-simplissime.
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de lionalger le 09/05/2003 22:04:59

ton code ne marche

signaler à un administrateur
Commentaire de Jielde le 10/05/2003 03:19:44

Prob sur
"Set MyZipFile = New SAWZIPLib.Archive"
"Le composant ActiveX ne peut créer l'objet".

signaler à un administrateur
Commentaire de TheSin le 10/05/2003 10:09:16

super ! merci, je cherchais ca depuis longtemps ! 10/10

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 !

signaler à un administrateur
Commentaire de Zenith le 10/05/2003 12:51:57

10/10 ... que dire de + ? :) j'attendais un code pareil depuis longtemps !
PS: tu devrais quand meme modifier ton zip avec les deux commentaires ci-dessus !

signaler à un administrateur
Commentaire de acoi le 10/05/2003 19:14:13

Tout sur la dll :

http://users.skynet.be/saw/sawzip.htm

signaler à un administrateur
Commentaire de Jielde le 11/05/2003 04:13:30

Désolé les mecs, mais j'ai tj le meme message d'erreur.

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

signaler à un administrateur
Commentaire de osmose06 le 11/05/2003 21:42:08

Hey Jielde, il faut que tu enregistres la dll dans la base de registres.

@+, Pascal

signaler à un administrateur
Commentaire de TheSin le 11/05/2003 22:09:17

c bizarre, moi je ké pas enregistrée, et jé pas u d'erreurs

signaler à un administrateur
Commentaire de lca94 le 18/09/2003 15:36:16

Autre kestion.. ptêt ke ça veint de là cui ki a pb

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

signaler à un administrateur
Commentaire de lca94 le 18/09/2003 15:48:24

Autre kestion.. ptêt ke ça veint de là cui ki a pb

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 :)

signaler à un administrateur
Commentaire de lca94 le 18/09/2003 17:14:42

ayé j'(ai trouvé;
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}"
>>>)))

signaler à un administrateur
Commentaire de econs le 23/10/2003 14:18:15 administrateur CS

Rien à faire, meme en utilisant l'install du site officiel, çà marche pas ...
La base de registre est pourtant conforme aux données ci dessus.
Plantage sur Set MyZipFile = New SAWZIPLib.Archive

signaler à un administrateur
Commentaire de lasof77 le 02/06/2004 11:07:38

Bonjour,

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

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Call of Duty 4: Modern Warfare pour Windows
Entre 55€ et 55€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto plan seul

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.