CLM'S DECOMPRESSOR : DECOMPRESSE LES FICHIERS ZIP, RAR, ACE ET CAB
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
-
12 févr. 2003 à 15:18
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 24 mars 2004 à 16:50
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 24 mars 2004 à 16:50
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/6112-clm-s-decompressor-decompresse-les-fichiers-zip-rar-ace-et-cab
https://codes-sources.commentcamarche.net/source/6112-clm-s-decompressor-decompresse-les-fichiers-zip-rar-ace-et-cab
24 mars 2004 à 16:50
J'ai fais un programme similaire qui suporte plusieurs formatsdont le ACE (avec ce dernier g kelkes blems avec le listing de l'archive) donc si kelk1 pourrait m'aider ...
24 févr. 2004 à 14:08
10 nov. 2003 à 08:28
Est-ce qu'elles sont libres de droits ?
Si oui alors merci beaucoup.
7 juil. 2003 à 21:25
Franchement rien que la DLL pour Unacer ça me plait :)
Par contre ça existe pour compresser aussi ? Ou est-ce que c'est payant ?
Merci !! ;-)
28 févr. 2003 à 08:57
exelente ta src !
bon comme je vé men servir now, jai effectué quelque modifs mineures:
now il suffit de mettre un racourci de ton EXE ds le menu SendTo pour decompresser un fichier ss lancer le prog.
Les modifs necessaires sont:
- Mettre le visible de la form1 a false dans les proprietes
- declarer ces 3 variable tout au au du code de la form1:
Dim FsrcCommand As String
Dim posa As Integer
Dim Fsrc As String
- Remplacer le code du Form_Load par celui la:
Private Sub Form_Load()
On Error GoTo erro1
Fsrc = Command$
Dim sCommand As String
Dim sDossier As String
Dim lRet As Long
dirSource.Path = App.Path
lblDossier.Caption = App.Path
If Fsrc = "" Then
Me.Visible = True
Else
posa = InStr(1, Fsrc, " ")
If posa > 0 Then Fsrc = Mid$(Fsrc, 1, posa - 1)
FsrcCommand = Fsrc
Call btnExraire_Click
DoEvents
End
End If
Exit Sub
erro1:
MsgBox "Décompression échouée!!!", vbCritical, "Clm's Decompressor"
End
End Sub
- et pour finir remplacer le code de la private sub btnExraire_Click() par:
Private Sub btnExraire_Click()
Dim bExtraction As Boolean
Dim FsrcPath As String
If FsrcCommand = "" Then
FsrcPath IIf(Right(FilSource.Path, 1) "", FilSource.Path, FilSource.Path & "") & FilSource.FileName
Else
FsrcPath = FsrcCommand
End If
If FsrcPath <> "" Then
Me.Enabled = False
Me.MousePointer = vbHourglass
If opt1.Value Then
bExtraction = LanceExtraction(FsrcPath)
Else
bExtraction = LanceExtraction(FsrcPath, lblDossier.Caption)
End If
Me.MousePointer = vbNormal
Me.Enabled = True
If bExtraction Then
MsgBox "Décompression effectuèe avec succés.", vbInformation, "Clm's Decompressor"
Else
MsgBox "Décompression échouée!!!", vbCritical, "Clm's Decompressor"
End If
End If
End Sub
Et voila normalement, si jai rien oublié ca devrait marcher aussi chez vous !
C tout con , ca ne recup qu1 seul fichier selectionné mais perso ca me suffit donc g pas fé de boucle pour recup les autres fichiers sel.
En esperant de ne pas trop avoir pourri ton code Clementio, je te souhaite de bon codding time.
@++++
17 févr. 2003 à 18:43
13 févr. 2003 à 21:41
Mais je voulais juste un décompresseur pour éviter d'avoir à télécharger Winrar ou Winace, voilà...
Sinon, en ce moment je m'intéresse de près à Huffman donc si vous avez des remarques ou des idées à partager là-dessus, tenez-moi au courant, merci...
13 févr. 2003 à 21:36
Sinon ... perfect !
13 févr. 2003 à 09:16
Je vais essayer d'améliorer cette source pour prendre en compte plus de formats de compression donc restez attentifs...
13 févr. 2003 à 07:09
12 févr. 2003 à 15:49
parce que sinon, faudrait trouver d'autres méthodes....
et est-ce que tu pourrais un peu plus commenter ta source, parce que j'aimerais bien l'utiliser dans mes jeux stp ...
12 févr. 2003 à 15:18