fplantar
Messages postés1Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention17 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és19Date d'inscriptionmardi 20 mars 2001StatutMembreDernière intervention29 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)...
17 sept. 2002 à 09:46
(fichiers non traités)
15 janv. 2002 à 11:02
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)...