GetAttr-Funktion

Hinweis: Die Funktion, die Methode, das Objekt oder die Eigenschaft, die bzw. das in diesem Thema erläutert wird, ist deaktiviert, falls der Ausdrucksdienst in Microsoft Jet im geschützten Modus (Sandkastenmodus) ausgeführt wird. In diesem Modus wird die Auswertung von potenziell unsicheren Ausdrücken verhindert. Weitere Informationen zum geschützten Modus finden Sie in der Hilfe unter "Sandkastenmodus".

Gibt einen Integer-Wert zurück, der den Attributen einer Datei, eines Verzeichnisses oder eines Ordners entspricht.

Syntax

GetAttr ( Pfadname )

Das erforderliche ArgumentPfadname ist ein Zeichenfolgenausdruck, der einen Dateinamen angibt. Der Pfadname kann das Verzeichnis oder den Ordner sowie 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 ermitteln, welche Attribute festgelegt sind, verwenden Sie den And-Operator, um einen Bitweiser Vergleich des Werts, der von der GetAttr-Funktion zurückgegeben wird, und dem Wert des jeweils gewünschten Dateiattributs auszuführen. 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.
Ihre Office-Fähigkeiten erweitern
Schulung erkunden
Neue Funktionen als Erster erhalten
An Office Insider teilnehmen

War diese Information hilfreich?

Vielen Dank für Ihr Feedback!

Vielen Dank für Ihr Feedback. Es klingt, als ob es hilfreich sein könnte, Sie mit einem unserer Office-Supportmitarbeiter zu verbinden.

×