Compresser/décompresser des fichiers zip

Soyez le premier à donner votre avis sur cette source.

Vue 24 120 fois - Téléchargée 3 145 fois

Description

Il s'agit d'une classe et d'un module permettant d'ouvrir un fichier ZIP pour en extraire le contenu ou y ajouter des fichiers. Exemple d'utilisation :

Dim cZip as ccZip
Set cZip = New ccZip

Call cZip.Init "Toto.zip” ' Si le fichier existe il est ouvert, sinon il est créé

Dim lRet as Long

lRet = cZip.AddFile("D:\temp\Titi.txt”)
‘** Ajoute “temp\Titi.txt"

ChDir "d:\temp"
lRet = cZip.AddFile("Titi.txt”)
‘** Ajoute “Titi.txt”
lRet = cZip.AddFile("D:\temp\Titi.txt”, , True)
‘** Ajoute “Titi.txt". Le troisième paramètre indique qu’il ne faut pas prendre en compte le chemin du fichier.

lRet = cZip.Decompress("D:\temp”)
‘** Décompresse tous les fichiers de l’archive dans D:\temp

Dim sName as String
sName = cZip.GetFile(5)
‘** Renvoie le nom (avec son chemin relatif) du 5è fichier de l’archive.

lRet = cZip.Decompress("D:\Temp”, “Toto.txt”)
‘** Décompresse uniquement le fichier Toto.txt dans D:\temp

Pour le reste je vous laisse vous amuser avec, le source est commenté.

Source / Exemple :


Le projet dans l'archive ZIP est le programme de test dont je me suis servis pour débugger la classe. Pour utiliser la classe ccZip, vous devez avoir zip32.dll et unzip32.dll (fournis dans le zip).

Ajoutez le module mDLLProc.bas et la classe ccZip.cls à votre projet pour pouvoir utiliser la classe.

Conclusion :


Je crois qu'il y a un bug avec les chemins réseaux, il faut obligatoirement connecter un lecteur (la dll n'accepte pas les chemins commencant par \\"

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_rafanel
Messages postés
21
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
8 mars 2012
-
moi aussi c'est juste ce qu'il me fallait,
-1) mais peut on rajouter au debut du chemin du fichier la lettr edu lecteur dans l'archive?
ex:
c:\temp\toto.txt
au lieu d'avoir
temp\toto.txt

-2) peut on connectre le taux de compression la taille du zip avant qu'il soit réellement écrit dans le fichier de destination?

merci d'avance
TR
guy000
Messages postés
24
Date d'inscription
lundi 11 août 2003
Statut
Membre
Dernière intervention
3 mai 2005
-
moi aussi c'est juste ce qu'il me fallait, c'est pour ca que je te dis merci.

cependant j'ai un probleme avec les gros fichiers,lorsque j'ajoute un fichier de 85 Mo ca plante
odan71
Messages postés
140
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
11 décembre 2007
-
pile qu'est-ce-qui m'faut :>)

grand merci ;)
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
C bon g trouvé !

Par contre si quelqu"un c comment retourner la progression de la decompression je suis preuneur :)

@+
cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
est ce normal que quand je souhaite decompresser un fichier il ne le decompresse pas ?

J'ai pas encore essayé laa compression

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.