GetAttr Description
Renvoie un entier qui représente les attributs d'un fichier, d'un dossier ou d'un répertoire.
Exemples simples de GetAttr
12 | MsgBox GetAttr("C:\")MsgBox GetAttr("D:\Test.txt") |
Cela renverra un nombre entier en fonction des paramètres du fichier/dossier/lecteur.
Si le nom de chemin n'existe pas, il se produira une erreur d'exécution « 53 » : fichier introuvable.
GetAttr Syntaxe
Dans l'éditeur VBA, vous pouvez taper "GetAttr(" pour voir la syntaxe de la fonction GetAttr :
La fonction GetAttr contient un argument :
Nom du chemin : Une expression de chaîne représentant un fichier/dossier/lecteur.
Valeurs de retour
La valeur renvoyée parObtenirAttr est la somme des valeurs d'attribut suivantes :
Constant | Valeur | La description |
---|---|---|
vbNormal | 0 | Normal. |
vbLecture seule | 1 | Lecture seulement. |
vbMasqué | 2 | Caché. |
vbSystème | 4 | Fichier système. Non disponible sur Macintosh. |
vbRépertoire | 16 | Répertoire ou dossier. |
vbArchive | 32 | Le fichier a changé depuis la dernière sauvegarde. Non disponible sur Macintosh. |
vbAlias | 64 | Le nom de fichier spécifié est un alias. Disponible uniquement sur Macintosh. |
Exemples de fonction Excel VBA GetAttr
1 | MsgBox GetAttr("C:\Program Files (x86)") |
1 | MsgBox GetAttr("C:\") |
Lors du test avec divers dossiers/fichiers/lecteurs, il renverra différents nombres comme 1, 2, 5, 22 et ainsi de suite.
Par exemple, dans le cas de 22, cela signifie vbDirectory(16) + vbSystem(4) + vbHidden(2).
Pour obtenir les paramètres d'attributs correspondant à chaque numéro, vous pouvez utiliser la fonction suivante.
12345678910111213 | Fonction GetAttributeSettings(attr As VbFileAttribute) As StringDim strSettings As StringstrParamètres = ""If (attr And vbDirectory) = vbDirectory Then strSettings = strSettings & "&Directory"If (attr And vbVolume) = vbVolume Then strSettings = strSettings & "&Volumn"If (attr And vbAlias) = vbAlias Then strSettings = strSettings & "&Alias"If (attr And vbArchive) = vbArchive Then strSettings = strSettings & "&Archive"If (attr And vbHidden) = vbHidden Then strSettings = strSettings & "&Hidden"If (attr And vbReadOnly) = vbReadOnly Then strSettings = strSettings & "&ReadOnly"If (attr And vbSystem) = vbSystem Then strSettings = strSettings & "&System"GetAttributeSettings = Mid(strSettings, 2)Fonction de fin |
1 | MsgBox GetAttributeSettings(22) |
Résultat : "Répertoire&Masqué&Système"