Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: GetAttr-Funktion (Beispiel)

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.