OVH Cloud OVH Cloud

VBS/WSH - propriété "Attributes"

1 réponse
Avatar
GOWAP
Bonjour,

dans l'usage de la propriété "Attributes" du Wscript 5.6 appliqué sur un
raccourci, je m'attends à voir l'attribut de valeur "64" comme définit dans
la documentation. Hors, j'ai la valeur "0" !

Je suis en XPsp2.

Qu'avez vous ?

GOWAP


---------------------------------(doc)--------------------
[Attributes]
Définit ou renvoie les attributs des fichiers ou des dossiers. Mode
lecture/écriture ou lecture seule, en fonction de l'attribut.

object.Attributes [= newattributes]

Arguments
object : Doit toujours correspondre au nom d'un objet File ou Folder.
newattributes : Facultatif. S'il est fourni, newattributes est la
nouvelle valeur des attributs de l'élément object spécifié.

Paramètres
L'argument newattributes peut prendre n'importe laquelle des valeurs
suivantes ou de leurs combinaisons :

Constante Valeur Description
Normal 0 Fichier normal. Aucun attribut n'est défini.
ReadOnly 1 Fichier en lecture seule. L'attribut est
lecture/écriture.
Hidden 2 Fichier masqué. L'attribut est lecture/écriture.
System 4 Fichier système. L'attribut est lecture/écriture.
Volume 8 Étiquette de volume du lecteur de disque. L'attribut
est lecture/écriture.
Directory 16 Dossier ou répertoire. L'attribut est lecture seule.
Archive 32 Le fichier a été modifié depuis la dernière copie de
sauvegarde. L'attribut est lecture/écriture.
Alias 64 Lien ou raccourci. L'attribut est lecture seule.
Compressed 128 Fichier comprimé. L'attribut est lecture seule.

1 réponse

Avatar
martial collinet
Bonjour,
J'ai essayé et comme prévu j'ai 32. En effet, j'ai vérifié sur la msdn
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/423ca96b-6877-4268-a6cc-3139e034f88c.asp
et la valeur 64 n'existe pas pour la propriété Attributes. Pour savoir si ton
objet est un raccourcis, il faut tester la valeur de la propriété Type.

Dim objFso, objFile
Set objFso = CreateObject("scripting.filesystemobject")
Set objFile = objFso.GetFile("c:test.lnk")
MsgBox "Attributes: " & CStr(objFile.Attributes) & vbCrLf & _
"Type: " & objFile.Type


----------------------------------
martial collinet
http://martialcollinet.free.fr
----------------------------------



Bonjour,

dans l'usage de la propriété "Attributes" du Wscript 5.6 appliqué sur un
raccourci, je m'attends à voir l'attribut de valeur "64" comme définit dans
la documentation. Hors, j'ai la valeur "0" !

Je suis en XPsp2.

Qu'avez vous ?

GOWAP


---------------------------------(doc)--------------------
[Attributes]
Définit ou renvoie les attributs des fichiers ou des dossiers. Mode
lecture/écriture ou lecture seule, en fonction de l'attribut.

object.Attributes [= newattributes]

Arguments
object : Doit toujours correspondre au nom d'un objet File ou Folder.
newattributes : Facultatif. S'il est fourni, newattributes est la
nouvelle valeur des attributs de l'élément object spécifié.

Paramètres
L'argument newattributes peut prendre n'importe laquelle des valeurs
suivantes ou de leurs combinaisons :

Constante Valeur Description
Normal 0 Fichier normal. Aucun attribut n'est défini.
ReadOnly 1 Fichier en lecture seule. L'attribut est
lecture/écriture.
Hidden 2 Fichier masqué. L'attribut est lecture/écriture.
System 4 Fichier système. L'attribut est lecture/écriture.
Volume 8 Étiquette de volume du lecteur de disque. L'attribut
est lecture/écriture.
Directory 16 Dossier ou répertoire. L'attribut est lecture seule.
Archive 32 Le fichier a été modifié depuis la dernière copie de
sauvegarde. L'attribut est lecture/écriture.
Alias 64 Lien ou raccourci. L'attribut est lecture seule.
Compressed 128 Fichier comprimé. L'attribut est lecture seule.