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.