Comment zipper des fichiers

hujikole Messages postés 8 Date d'inscription mardi 19 juin 2001 Statut Membre Dernière intervention 22 janvier 2007 - 4 janv. 2007 à 17:54
cavo789 Messages postés 168 Date d'inscription vendredi 9 janvier 2004 Statut Membre Dernière intervention 28 juillet 2009 - 5 janv. 2007 à 22:04
Bonjour,

comment zipper des fichiers?
j'ai essayer de recuperer les zip et unzip
amsi j'y arrive pas a les utiliser

Merci par avance,

delphine

7 réponses

Utilisateur anonyme
4 janv. 2007 à 18:08
Salut,

Zip et UnZip, tu avais les mots clés, une recherche aurait suffit :

http://www.vbfrance.com/codes/ZIP-UNZIP-CLASSES-POUR-GERER-VOS-ZIPS_24072.aspx






__________
Kenji
0
hujikole Messages postés 8 Date d'inscription mardi 19 juin 2001 Statut Membre Dernière intervention 22 janvier 2007
5 janv. 2007 à 11:35
j'avais deja trouver ce bout de code, mais je ne peux pas l'utiliser car j'ai oublié de preciser que j'etais en VB5.
et donc il y a certaines fonctions dans le code que je ne peux pas utiliser.
0
cavo789 Messages postés 168 Date d'inscription vendredi 9 janvier 2004 Statut Membre Dernière intervention 28 juillet 2009 1
5 janv. 2007 à 12:35
Il y a quelques temps déjà, j'ai été confronté à ce problème et j'ai pû glané quelques informations sur le Net afin de pouvoir réutiliser la fonction "Send to a zipfile"; fonction intégrée dans Windows XP.

Voici la fonction que j'ai alors écrite :

Public Sub ZMakeZIPFile(ByVal sZIPFileName, ByVal sFileName)

Dim oShell As Object
Dim oZip As Object

         Open sZIPFileName For Output As #1

         Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)

         Close #1

         ' Copy the file in the compressed folder

         Set oShell = CreateObject("Shell.Application")
         Set oZip = oShell.Namespace(sZIPFileName)

         oZip.CopyHere sFileName

         ' Keep script waiting until Compressing is done

         Do Until oZip.Items.Count = 1
            DoEvents
         Loop

         Set oZip = Nothing
         Set oShell = Nothing
          On Error GoTo 0

End Sub

Si tu as une question, n'hésite pas.

Remarque: cette fonction est intéressante du fait qu'elle n'utilise aucun outil externe tel que WinZip.

Christophe
0
cavo789 Messages postés 168 Date d'inscription vendredi 9 janvier 2004 Statut Membre Dernière intervention 28 juillet 2009 1
5 janv. 2007 à 12:36
La coloration syntaxique a été obtenue avec Kenji http://charles.racaud.free.fr/code-syntaxing/ (j'ai omis de copier/coller le lien; sorry)

Christophe
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Utilisateur anonyme
5 janv. 2007 à 12:40
Utilise le bouton copier qui est fait pour ca. Merci






__________
Kenji
0
hujikole Messages postés 8 Date d'inscription mardi 19 juin 2001 Statut Membre Dernière intervention 22 janvier 2007
5 janv. 2007 à 17:08
merci beaucoup de votre aide, mais a force de tester, j'ai retirer tout le code que je n'utilisait pas , et modifier ce qui me faisait planter. au final, ca marche.
0
cavo789 Messages postés 168 Date d'inscription vendredi 9 janvier 2004 Statut Membre Dernière intervention 28 juillet 2009 1
5 janv. 2007 à 22:04
> Utilise le bouton copier qui est fait pour ca. Merci

C'est bête hein mais je ne l'avais jamais vu.    Merci pour l'info.

Christophe
0
Rejoignez-nous