Voir Zip...
Télécharger le zip
si le but est d'enlever seulement l'attribut ReadOnly, alors pourquoi enlever les autres aussi ?l'attribut Archive par exempleet plus grave encore, Système et Hidden seront supprimés par ton programme.attention SetAttr ne gère pas les attributs étendus,par contre il les enlève (attribut indexation sera supprimé également) il faut utiliser GetFileAttributes et SetFileAttributes beaucoup plus performant.
C'est vrai.Ce code fait il y a quelques années avait pour but de rendre "writable" des tonnes de dossiers copiés à partir de CD.Je vais modifier et recharger demain.
Code corrigé.Note d'intérêt public: Dir ne liste pas les dossiers avec l'attribut FILE_ATTRIBUTE_HIDDEN
non non c'est pas bonfaut pas faire plusieurs SetFileAttributes, sinon seul le dernier sera pris en compteil faut faire un masque avec l'attribut qu'on veut enlever et c'est toutlngFileAttr = GetFileAttributes(strPath & strContent)If lngFileAttr And vbReadOnly Then SetFileAttributes strPath & strContent, lngFileAttr And (Not vbReadOnly) End Ifok pour le Hidden, mais vaut mieux prendre de bonnes habitudes,si on modifie un attribut, il faut laisser les autres intacts
...ick...Merci.
Bonjour,Je pense que tu te trompes en disant que DIR ne liste pas les attributs cachés. IL suffit de passer en option, "vbhidden" pour les voir... soit Dir( [répertoire] , vbarchive + vbhidden ). Cette liste peut d'ailleurs s'agrandir avec : vbReadOnly + vbSystem... Amicalement,Us.
Complément,Pour les dossiers spécifiquement, il faut utiliser : vbDirectory + vbHidden + vbSystem ...Us.
J'ai remodifié mon code dans ce sens mais cette option ne s'était jamais présentée à date puis que ce programme ne changait que des masses de copies provenant de sources protégées en écriture.Mais je ne touche pas au vbSystem. Ah non alors: assez de problèmes comme ca.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte