ACTIVEZIPPER OCX COMPRESS/DECOMPRESS!!!
cs_Rock
Messages postés
43
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
31 mai 2006
-
15 mars 2003 à 09:42
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006 - 21 sept. 2004 à 17:52
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006 - 21 sept. 2004 à 17:52
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
https://codes-sources.commentcamarche.net/source/6464-activezipper-ocx-compress-decompress
21 sept. 2004 à 17:52
'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
6 févr. 2004 à 15:52
C'est la qu'on voit qu'en s'exercant, on attrape un bon niveau en mm pas 1 an !!!!
++
6 févr. 2004 à 15:13
Dans les Command, tu utilises "Dir1.Path & File1.FileName" à plusieurs reprises --> manque un & "" entre deux.
15 mars 2003 à 09:42
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.