Catégories
Macros VBA

VBA Getattr() : macro pour indiquer les attributs d’un fichier ou dossier

Partager :

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)

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

ABCD
1D:\test1.txt
2D:\docs\
3D:\docs\test2.txt
4D:\docs\test3.txt
5D:\docs\test4.txt

Le résultat

ABCD
1D:\test1.txt1fichier en lecture seule
2D:\docs\16dossier
3D:\docs\test2.txt32fichier modifié
4D:\docs\test3.txt2fichier masqué
5D:\docs\test4.txt64alias de fichier