ACTIVEZIPPER OCX COMPRESS/DECOMPRESS!!!

Signaler
Messages postés
43
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
31 mai 2006
-
Messages postés
125
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
9 décembre 2006
-
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/6464-activezipper-ocx-compress-decompress

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
76
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.