Module
Contenu
Index 🔎︎

# Fonction GetAttr

Renvoie une configuration binaire identifiant le type de fichier ou le nom d'un volume ou d'un répertoire.

## Syntaxe :

    GetAttr (Text As String)

## Valeur de retour :

Nombre entier

## Paramètres :

Text : expression au format chaîne de caractères contenant une spécification de fichier non ambiguë. Vous pouvez également utiliser la notation URL.

Cette fonction détermine les attributs d'un fichier spécifié et renvoie la configuration binaire permettant d'identifier les attributs de fichier suivants :

## Codes d'erreur :

5 appel de procédure incorrect

53 fichier non trouvé

## Valeur

Constante nommée | Valeur | Définition
ATTR_NORMAL | 0 | Fichiers normaux.
ATTR_READONLY | 1 | Fichiers en lecture seule.
ATTR_HIDDEN | 2 | Fichier caché
ATTR_SYSTEM | 4 | Fichier système
ATTR_VOLUME | 8 | Renvoie le nom du volume
ATTR_DIRECTORY | 16 | Renvoie le nom du répertoire uniquement.
ATTR_ARCHIVE | 32 | Fichier modifié depuis la dernière sauvegarde (attribut d'archivage).

Pour savoir si un bit de l'octet d'attribut est défini, utilisez la méthode de requête suivante :

## Exemple :

    Sub ExampleSetGetAttr

    On Error Goto ErrorHandler ' Définir une cible pour le gestionnaire des erreurs

     If Dir("C:\test",16)="" Then MkDir "C:\test"

     If Dir("C:\test\autoexec.sav")="" Then FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"

     SetAttr "c:\test\autoexec.sav" ,0

     FileCopy "c:\autoexec.bat", "c:\test\autoexec.sav"

     SetAttr "c:\test\autoexec.sav" ,1

     Print GetAttr( "c:\test\autoexec.sav" )

     End

    ErrorHandler:

     Print Error

     End

    End Sub