La fonction GetAttr dans VBA est utilisée dans les macros pour renvoyer une valeur indiquant les attributs du fichier ou du dossier.
La fonction GetAttr
La fonction VBA GetAttr suit la syntaxe suivante :
Getattr(variable)
où variable renvoie un des résultats suivants :
- 0 : normal
- 1 : fichier en lecture seule
- 2 : fichier masqué
- 4 : fichier système
- 16 : dossier
- 32 : fichier modifié depuis la dernière sauvegarde
- 64 : alias de fichier
Exemple de macro avec GetAttr
La macro
Sub nommacro()
Dim i As Integer
For i = 1 To 5
'Résultat dans Ligne de 1 à 5, Colonne 2
Cells(i, 5).Value = GetAttr(Cells(i, 1))Next i
End Sub
Les données sources
A | B | C | D | |
---|---|---|---|---|
1 | D:\test1.txt | |||
2 | D:\docs\ | |||
3 | D:\docs\test2.txt | |||
4 | D:\docs\test3.txt | |||
5 | D:\docs\test4.txt |
Le résultat
A | B | C | D | |
---|---|---|---|---|
1 | D:\test1.txt | 1 | fichier en lecture seule | |
2 | D:\docs\ | 16 | dossier | |
3 | D:\docs\test2.txt | 32 | fichier modifié | |
4 | D:\docs\test3.txt | 2 | fichier masqué | |
5 | D:\docs\test4.txt | 64 | alias de fichier |