ÉNUMÉRER LES ATTRIBUTS D'UN FICHIER AVEC WINDOWS SCRIPTING

loFSO = CreateObject("Scripting.FileSystemObject")
loFile = loFSO.GetFile("C:\FSO\ScriptLog.txt")
If loFile.Attributes= 0
?"No attributes set."
ENDIF
If loFile.Attributes = 1
?"Lecture seule."
ENDIF
If loFile.Attributes = 2
?"Fichier caché."
ENDIF
If loFile.Attributes = 4
?"Fichier système."
ENDIF
If loFile.Attributes = 32
?"Archive bit set."
ENDIF
If loFile.Attributes = 64
?"Lien ou racourçi."
ENDIF
If loFile.Attributes = 2048
?"Fichier compressé."
ENDIF