LISTER LES NOMS,TAILLES,ATTRIBUTES,RATIO ET D'AURES INFORMATIONS DES FICHIERS D'
cs_Warny
Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015
-
3 févr. 2004 à 12:06
cs_Warny Messages postés 473 Date d'inscription mercredi 7 août 2002 Statut Membre Dernière intervention 10 juin 2015 - 3 févr. 2004 à 12:06
cs_Warny Messages postés 473 Date d'inscription mercredi 7 août 2002 Statut Membre Dernière intervention 10 juin 2015 - 3 févr. 2004 à 12:06
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/20070-lister-les-noms-tailles-attributes-ratio-et-d-aures-informations-des-fichiers-d-un-cab-sans-aucun-dll
https://codes-sources.commentcamarche.net/source/20070-lister-les-noms-tailles-attributes-ratio-et-d-aures-informations-des-fichiers-d-un-cab-sans-aucun-dll
3 févr. 2004 à 12:06
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