Clm's decompressor : decompresse les fichiers zip, rar, ace et cab

5/5 (12 avis)

Vue 14 996 fois - Téléchargée 1 548 fois

Description

Cette appli, basée sur la simplicité d'utilisation, vous permet de décompresser vos fichiers zip, rar, ace et cab.

La source contient 3 dlls et extract.exe (installer par défaut sous Win98 mais pas sous XP) à placer dans le répertoire système de Windows et après ya plus ka!!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_PaTaTe Messages postés 2107 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
24 mars 2004 à 16:50
Ca serait cool d'avoir un apercu de l'archive dans une listview avant de decompresser (pratik dans le cas d'un nombre important d'archive portant sensiblement le meme nom (comme les sources de VBFrance))

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 ...
NHenry Messages postés 15025 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 26 novembre 2022 157
24 févr. 2004 à 14:08
G eu un message : décompression échouée avec succès. terrible comme message. Sinon SUPER.
jon256 Messages postés 43 Date d'inscription mercredi 20 août 2003 Statut Membre Dernière intervention 20 décembre 2003
10 nov. 2003 à 08:28
Est-ce que les DLL sont de toi ?
Est-ce qu'elles sont libres de droits ?
Si oui alors merci beaucoup.
Rrominet Messages postés 133 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 24 novembre 2014
7 juil. 2003 à 21:25
Géniale ta source !!
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 !! ;-)
lumesh Messages postés 564 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 7 novembre 2008
28 févr. 2003 à 08:57
iop,

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.
@++++
Afficher les 12 commentaires

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.