Changement d'attributs d'un dossier

Bonjour Bonjour !

Alors voila, j'ai un petit problême de compréhension..

J'ai ce script qui permet de passer un dossier en caché :

Code:

---

1 2 3 4 5 6 7

Set oFs = CreateObject("Scripting.FileSystemObject")   Set objFolder = oFs.GetFolder("C:\VBS\Hidden") If objFolder.Attributes = objFolder.Attributes AND 2 Then objFolder.Attributes = objFolder.Attributes XOR 2 End If

---

Ma question se situe au niveau du AND et du XOR..
Je ne comprends pas bien pourquoi on balance un ou exclusif pour "activer" la propriété..

Des idées sur le fonctionnement ?

Merci d'avance !

Bien cordialement,

Tan

Le premier test avec le AND permet de vérifier si le bit "Hidden" est a 1 ...
et s'il est a 1 le XOR permet sa remise a 0.

Merci,

Donc un attribut est "activé" quand son bit est à 0 c'est ça ?
Donc mon dossier caché va ressembler à ça aprés ?


N L H S V D A A C
1 1 0 1 1 0 1 1 1

avec

N = Normal
L = Lecture Seule
H = Hidden
S = Systeme
V = Volume etiquette
D = Directory
A = Archive
A = Alias
C = Compresses

Merci d'avance

salut,

Citation:

---

Donc un attribut est "activé" quand son bit est à 0 c'est ça ?

---

non l'inverse :aie:
voir ici (le tableau est en fin de page)
les bits se comptent à partir de la droite
le flag hidden étant le 2ème, la valeur décimale 2 qui se traduit en binaire par "10" permet de tester spécifiquement ce flag

[Edit: Trompé dans le calcul ]

Salut et merci : )

Donc ça veut dire que dans ce petit passage :

Code:

---

1 2 3

If objFolder.Attributes = objFolder.Attributes AND 2 Then objFolder.Attributes = objFolder.Attributes XOR 2

---

Si notre dossier n'est pas en Hidden on a :
0 0 0 1 0 0 0 0 ( donc juste un dossier )

On teste avec un ET :
0 0 0 1 0 0 0 0 ET
. . . . . . . . 1 0
_____________
0 0 0 1 0 0 0 0
c'est egal à 0 0 0 1 0 0 0 0 donc on fait

0 0 0 1 0 0 0 0 OU EXCLUSIF
0 0 0 0 0 0 1 0
____________
0 0 0 1 0 0 1 0
ce qui nous donne bien notre dossier en Hidden !

C'est ça ?
Désolé si je me permet de tout reformuler c'est juste pour bien comprendre !

Merci d'avance !

non comme je te l'ai écris plus haut .. ce code met le bit "Hidden" a 0 ...

et donc c'est le contraire il permet d'enlever l'attribut caché a un dossier pas de le rajouter ..

tu as essayé ton code ?

Oui oui je l'ai testé !
Mais je viens de le retester et il s'avere que si le dossier n'est pas caché, il devient caché et inversement, si le dossier est caché, il ne devient plus caché.

oui, désolé ... c'est moi qui est testé qu'une fois .. :aie:


bon finalement il est bizarre le test avec le AND.... , pour cacher le fichier et n'effectuer le XOR que si le fichier n'est pas caché tu peu faire :

Code:

---

If (objFolder.Attributes AND 2) = 0 Then

---

Pas de soucis,

Oui en effet, ton test me parait mieux.

En tout cas merci d'avoir pris du temps pour moi,

Bonne continuation.