Hinweis
Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.
Gibt einen Integer-Wert zurück, der den Attributen einer Datei, eines Verzeichnisses oder eines Ordners entspricht.
Syntax
GetAttr(pathname)
Das erforderliche Argument pathnameist ein Zeichenfolgenausdruck, der einen Dateinamen angibt. Der Pfadname kann das Verzeichnis oder den Ordner und das Laufwerk enthalten.
Rückgabewerte
Der von GetAttrzurückgegebene Wert ist die Summe der folgenden Attributwerte:
| Konstante | Wert | Beschreibung |
|---|---|---|
| vbNormal | 0 | Normal |
| vbReadOnly | 1 | Schreibgeschützt |
| vbHidden | 2 | Ausgeblendet |
| vbSystem | 4 | Systemdatei. Auf einem Macintosh nicht verfügbar. |
| vbDirectory | 16 | Verzeichnis oder Ordner |
| vbArchive | 32 | Datei wurde seit der letzten Sicherung geändert. Auf einem Macintosh nicht verfügbar. |
| vbAlias | 64 | Der angegebene Dateiname ist ein Alias. Nur auf einem Macintosh verfügbar. |
Hinweis
Diese Konstanten werden von Visual Basic for Applications angegeben. Die Namen können an jeder Stelle im Code anstelle der tatsächlichen Werte verwendet werden.
Hinweise
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
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. Ist das Ergebnis ungleich null, ist dieses Attribut für die angegebene Datei festgelegt. Beispielsweise ist der Rückgabewert des folgenden And-Ausdrucks gleich null, wenn das Archiv-Attribut nicht festgelegt ist:
Result = GetAttr(FName) And vbArchive
Ein Wert ungleich null wird zurückgegeben, wenn das Archiv-Attribut festgelegt ist.
Beispiel
In diesem Beispiel wird die GetAttr-Funktion verwendet, um die Attribute einer Datei und eines Verzeichnisses oder Ordners zu ermitteln. Auf einem 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.