Activezipper ocx compress/decompress!!!

0/5 (4 avis)

Vue 11 130 fois - Téléchargée 1 207 fois

Description

C pas nouveau , mais bon si comme moi vous etes novice en vb voici comment fonctionne cet active x, il faut l'installer ds le registre "azipinst.bat".
Ce n ai pas de la compression winzip mais du zip!!! donc ne marche pas apparement avec les decompresseur comme winzip etc...

Source / Exemple :


In th zip (code + ocx)

Conclusion :


Je n arrive pas a faire fonctionner la commande Progress du controle, apres qq heures a chercher , on m a dit que personne n a reussi a le faire fonctionner alors si qq sait??? qu'il nous tienne au courant.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006

'Bonjour a tous voicie une nouvelle version du ActiveZipper
'le code est toujour le meme a 95% mais j'ai fais des modification
'vitale pour faire fonctionnner le programe... alors copier les code au bon endroie
je trouve interaisant
'que le programe zip dans un format non-standart(je veux dire que le
'winrar ne peut l'ouvrir..) j'ai aussi changer l'indentation(elle
'est plus clair je croie) j'espere que ce code modifier vous aidera
'envoyer un message a f_j_plante@hotmail.com si vous avez besoin de plus
'd 'info

Private Sub Command1_Click()

msg = "le fichier " & nomfic & " existe" & vbCrLf & "Voulez vous le supprimer?"

If Dir(Dir1.Path & File1.FileName & ".zip") <> "" Then

If MsgBox(msg, vbYesNo) = vbNo Then MsgBox "action annulé": GoTo fin
Kill Dir1.Path & File1.FileName & ".zip"

End If

List1.AddItem "Compression en cours de " & File1.FileName
Timer1.Enabled = True

With ActiveZipper1
' Cette partie étais éronéle concepteur originale
' avait mit des & au lieu de + et a oublié que la
' vue du control des dossier ne retourne pas de \
' a la fin de sont string
.SourceFile = Dir1.Path + "" + File1.FileName
.OutPutFile = Dir1.Path + "" + File1.FileName & ".zip"
.Compress
End With

Timer1.Enabled = False
List1.AddItem "Compression terminé en " + Label1.Caption + " seconde"
Label1.Caption = "0"

fin:

End Sub

Private Sub Command2_Click()

Dim nomfic As String

For i = Len(File1.FileName) To 1 Step -1

nomfic = Left(File1.FileName, i - 1)
If Mid(File1.FileName, i, 1) = "." Then Exit For

Next

msg = "le fichier " & nomfic & " existe" & vbCrLf & "Voulez vous le supprimer?"

If Dir(Dir1.Path & nomfic) <> "" Then

If MsgBox(msg, vbYesNo) = vbNo Then MsgBox "action annulé": GoTo fin
Kill Dir1.Path & nomfic

End If

List1.AddItem "Decompression en cours de " & nomfic

With ActiveZipper1
' Cette partie étais éronéle concepteur originale
' avait mit des & au lieu de + et a oublié que la
' vue du control des dossier ne retourne pas de \
' a la fin de sont string
.SourceFile = Dir1.Path + "" + File1.FileName
.OutPutFile = Dir1.Path + "" + nomfic
.Decompress
List1.AddItem "Decompression terminé"

End With

fin:
End Sub
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
4
Oui Jack lol c'est une de mes premiére source, le code ne doit pas étre folichont!!!
C'est la qu'on voit qu'en s'exercant, on attrape un bon niveau en mm pas 1 an !!!!

++
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
75
lol, pcpunch : un bug
Dans les Command, tu utilises "Dir1.Path & File1.FileName" à plusieurs reprises --> manque un & "" entre deux.
Messages postés
43
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
31 mai 2006

Bien comme ocx c'est dommage que ce ne soit pas du zip,moi j'utilise plutot les dll unzip.dll et zip.dll c'est plus difficile a mettre en oeuvre mais il y a des bons exemples ici.
Sinon pour ceux qui ne cherche qu'a compresser sans compatibilité avec le format zip c'est l'activex le plus simple a utiliser et gratuit.
Merci pour l'exemple d'utilisation car on ne trouve plus la doc de cet activex.

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.