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

Soyez le premier à donner votre avis sur cette source.

Vue 14 469 fois - Téléchargée 1 527 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

Messages postés
2093
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
23 août 2020
2
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 ...
Messages postés
14725
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 septembre 2020
144
G eu un message : décompression échouée avec succès. terrible comme message. Sinon SUPER.
Messages postés
43
Date d'inscription
mercredi 20 août 2003
Statut
Membre
Dernière intervention
20 décembre 2003

Est-ce que les DLL sont de toi ?
Est-ce qu'elles sont libres de droits ?
Si oui alors merci beaucoup.
Messages postés
133
Date d'inscription
lundi 26 janvier 2009
Statut
Membre
Dernière intervention
24 novembre 2014

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 !! ;-)
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

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.