UTILITAIRE DE DE-PROTECTION EN ÉCRITURE DE FICHIERS

Commentaire de bitshifter le 17/08/2006 02:35:46

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.

Commentaire de Gobillot le 18/08/2006 03:29:04

non non c'est pas bon
faut pas faire plusieurs SetFileAttributes, sinon seul le dernier sera pris en compte
il faut faire un masque avec l'attribut qu'on veut enlever et c'est tout

lngFileAttr = GetFileAttributes(strPath & strContent)
If lngFileAttr And vbReadOnly Then
   SetFileAttributes strPath & strContent, lngFileAttr And (Not vbReadOnly)
   End If

ok pour le Hidden, mais vaut mieux prendre de bonnes habitudes,
si on modifie un attribut, il faut laisser les autres intacts

Commentaire de us_30 le 19/08/2006 12:49:07

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.

Commentaire de bitshifter le 19/08/2006 19:45:42

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.