Applies ToAccess für Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 ( 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.

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.