Freigeben über


GetAttr-Funktion

Gibt eine ganze Zahl zurück, die die Attribute einer Datei, eines Verzeichnisses oder eines Ordners darstellt.

Syntax

GetAttr(pathname)

Das erforderliche Argument pathname ist ein Zeichenfolgenausdruck, der einen Dateinamen angibt. Der Pfadname kann das Verzeichnis oder den Ordner sowie das Laufwerk beinhalten.

Rückgabewerte

Der von GetAttr zurückgegebene Wert ist die Summe der folgenden Attributwerte:

Konstante Wert Beschreibung
vbNormal 0 Normal.
vbReadOnly 1 Schreibgeschützt.
vbHidden 2 Versteckt.
vbSystem 4 Systemdatei. Unter Macintosh nicht verfügbar.
vbDirectory 16 Verzeichnis oder Ordner.
vbArchive 32 Datei wurde seit der letzten Sicherung geändert. Unter Macintosh nicht verfügbar.
vbAlias 64 Der angegebene Dateiname ist ein Alias. Nur unter Macintosh verfügbar.

Hinweis

Diese Konstanten werden von Visual Basic for Applications angegeben. Die Namen können an einer beliebigen Stelle im Code anstelle der tatsächlichen Werte verwendet werden.

Hinweise

Um zu bestimmen, welche Attribute festgelegt werden, verwenden Sie den And-Operator , um einen bitweisen Vergleich des von der GetAttr-Funktion zurückgegebenen Werts und des Werts des einzelnen Dateiattributs durchzuführen, das Sie möchten. Wenn das Ergebnis nicht null ist, ist das Attribut für die benannte Datei festgelegt. Der Rückgabewert des folgenden And -Ausdrucks ist beispielsweise null, wenn das Attribut "Archive" nicht festgelegt ist:

Result = GetAttr(FName) And vbArchive

Wenn das Attribut "Archive" festgelegt ist, wird ein Wert ungleich 0 zurückgegeben.

Beispiel

In diesem Beispiel wird die GetAttr -Funktion verwendet, um die Attribute einer Datei und eines Verzeichnisses oder eines Ordners zu bestimmen. Unter Macintosh sind nur die Konstanten vbNormal, vbReadOnly, vbHidden und vbAlias verfügbar.

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE")    ' Returns 2.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And vbHidden    

' Assume file TESTFILE has hidden and read-only attributes set.
MyAttr = GetAttr("TESTFILE")    ' Returns 3.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)    

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR")    ' Returns 16.

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.