Manuel du langage de script Desktop Management › Fonctions › Fonctions du système de fichiers › GetFileAttributes – Renvoyer les attributs de fichiers

GetFileAttributes – Renvoyer les attributs de fichiers

Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE

La fonction GetFileAttributes extrait l'attribut du fichier ou du répertoire indiqué par le nom.

Format de la fonction :

GetFileAttributes(filename as String) as Integer

nom_fichier

Identifie le chemin du fichier.

La liste suivante indique la valeur des attributs de fichier pour toutes les plates-formes Windows prises en charge. Les valeurs des paramètres sont décimales.

READONLY

Valeur : 1

MASQUE

Valeur : 2

SYSTEM

Valeur : 4

DIRECTORY

Valeur : 16

ARCHIVE

Valeur : 32

NORMAL

Valeur : 128

TEMPORARY

Valeur : 256

COMPRESSED

Valeur : 2048

HORS LIGNE

Valeur : 4096

Une fois qu'elle a réussi, la fonction renvoie une valeur contenant les attributs du fichier ou du répertoire indiqué. Si le fichier n'existe pas, la fonction renvoie la valeur -1.

Exemple :

Cet exemple répertorie les attributs de AUTOEXEC.BAT et modifie l'indicateur Hidden.

dim attr as integer
dim out as string

attr=GetFileAttributes("C:BAT")
if (attr<>-1) then
	 out=out+"Attributs : "+chr(9)+"["
	 if attr and FA_ARCHIVE then out=out+"A"
	 if attr and FA_SYSTEM then out=out+"S"
	 if attr and FA_HIDDEN then out=out+"H"
	 if attr and FA_RDONLY then out=out+"R"

	 out=out+"]"
	 MsgBox("Informations sur C:\AUTOEXEC.BAT"+chr(10)+chr(10)+out)
else
	 MsgBox("C:\AUTOEXEC.BAT est introuvable")
end if
if attr and FA_HIDDEN then
	attr = attr - FA_HIDDEN
	SetFileAttributes("C:\AUTOEXEC.BAT", attr)
else
	attr = attr + FA_HIDDEN
	SetFileAttributes("C:\AUTOEXEC.BAT", attr)
End If
end: