Lister les noms,tailles,attributes,ratio et d'aures informations des fichiers d'un cab sans aucun dll

Soyez le premier à donner votre avis sur cette source.

Vue 3 255 fois - Téléchargée 351 fois

Description

Lire des informations a partire du cab
version de son compresseur
nombre de fichiers
type de compression
nom de chaque fichier
attributes
taille et taille compressé et pourcentage

C'est sans dlls

Source / Exemple :


voir zip

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_Warny
Messages postés
478
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
Ton fichier utilise la dll scripting par l'intermédiaire de tes createobject.
Tu devrais lier la librairie pour plus d'efficacité.

Sinon, ton code est super mal présenté, il manque des commentaires et des nom de variables explicites. Il faut aussi que tu indentes (décalle) tes lignes pour plus de lisibilité.
Pour lire tes attributs, tu peux utiliser un masque :
ça fera des ligne de code genre
Dim attr as String
if qx and 1 then attr = attr & "+R"
if qx and 2 then attr = attr & "+H"
if qx and 4 then attr = attr & "+S"
if qx and 32 then attr = attr & "+A"
if qx and 64 then attr = attr & "+D"
attr = mid(attr,2)
soit 6 lignes où tu en mets 32 et où tu multiplie inutilement ton code

Elimine les Goto même dans les On Error (d'autres ne seront pas d'accord avec moi)

Utilise plutot cette forme :
On error resume next
instruction
If Err.number <> 0 then
traitement de l'erreur
eventuellement suivi d'un exit sub ou function
End If

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.