ENLEVER LA LECTURE SEULE DES FICHIERS D'UN DOSSIER ET DES SOUS-RÉPERTOIRES

ActiveZ Messages postés 19 Date d'inscription mardi 20 mars 2001 Statut Membre Dernière intervention 29 mars 2006 - 15 janv. 2002 à 11:02
fplantar Messages postés 1 Date d'inscription mardi 13 août 2002 Statut Membre Dernière intervention 17 septembre 2002 - 17 sept. 2002 à 09:46
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/2418-enlever-la-lecture-seule-des-fichiers-d-un-dossier-et-des-sous-repertoires

fplantar Messages postés 1 Date d'inscription mardi 13 août 2002 Statut Membre Dernière intervention 17 septembre 2002
17 sept. 2002 à 09:46
Ce code ne fonctionne pas correctement si on possède d'autres répertoires à l'intérieure des sous répertoires.
(fichiers non traités)
ActiveZ Messages postés 19 Date d'inscription mardi 20 mars 2001 Statut Membre Dernière intervention 29 mars 2006
15 janv. 2002 à 11:02
Houla DANGER !
ce code va remettre TOUS les attributs à 0 (les autres aussi...)
Je crois que ça c'est mieux:
If Not (GetAttr(MonFichier) And vbReadOnly) = 0 Then
SetAttr "MonFichier", GetAttr(MonFichier) - 1

De plus, ce code a déjà été mis ds la rubrique fichier par Nix en 1999 ! (avec la meme boulette, donc le meme commentaire)...
Rejoignez-nous