In diesem Beispiel wird die GetAttr-Anweisung verwendet, um die Attribute einer Datei, eines Verzeichnisses oder Ordners zu bestimmen. Auf dem Macintosh sind lediglich die Konstanten vbNormal, vbReadOnly, vbHidden und vbAlias verfügbar.
Dim Attr1
' Das Attribut "Versteckt" wurde für die Datei TSTDATEI gesetzt.
Attr1 = GetAttr("TSTDATEI") ' Liefert 2.
' Liefert Wert ungleich Null, wenn Attribut "Versteckt" (vbHidden)
' für TSTDATEI gesetzt wurde.
Debug.Print Attr1 And vbHidden
' Für Datei TSTDATEI wurden die Attribute "Versteckt" und
' "Schreibgeschützt" (vbReadOnly) gesetzt.
Attr1 = GetAttr("TSTDATEI") ' Liefert 3.
' Liefert Wert ungleich Null, wenn Attribute "Versteckt" und
' "Schreibgeschützt" für TSTDATEI gesetzt wurden.
Debug.Print Attr1 And (vbHidden + vbReadOnly)
' VERZ1 ist ein Verzeichnis oder ein Ordner.
Attr1 = GetAttr("VERZ1") ' Liefert 16.