Énumérer les attributs d'un fichier avec windows scripting

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 438 fois - Téléchargée 31 fois

Contenu du snippet

Le code requiert l'installation de Windows Scripting.
Plateforme supportées:
Windows Server 2003 Oui
Windows XP Oui
Windows 2000 Oui
Windows NT 4.0 Oui
Windows 98 Yes, avec Windows Script Host installé

Source / Exemple :


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

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.