GetAttr-Funktion
Hinweis: Die in diesem Thema beschriebenen Funktionen, Methoden, Objekte oder Eigenschaften sind deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandkastenmodus ausgeführt wird, wodurch die Auswertung potenziell unsicherer Ausdrücke verhindert wird. Um weitere Informationen zum Sandbox-Modus zu erhalten, suchen Sie in der Hilfe nach „Sandbox-Modus".
Gibt eine Ganzzahl zurück, die die Attribute einer Datei, eines Verzeichnisses oder eines Ordners darstellt.
Syntax
GetAttr ( Pfadname )
Das erforderliche Pfadname -Argument ist ein Zeichenfolgenausdruck, der einen Dateinamen angibt. Der Pfadname kann das Verzeichnis oder den Ordner und das Laufwerk enthalten.
Rückgabewerte
Der von GetAttr zurückgegebene Wert ist die Summe der folgenden Attributwerte:
Konstante | Wert | Beschreibung |
vbNormal | 0 | Normal. |
vbReadOnly | 1 | Schreibgeschützt. |
vbVersteckt | 2 | Versteckt. |
vbSystem | 4 | Systemdatei. Nicht verfügbar auf dem Macintosh. |
vbVerzeichnis | 16 | Verzeichnis oder Ordner. |
vbArchiv | 32 | Die Datei hat sich seit der letzten Sicherung geändert. Nicht verfügbar auf dem Macintosh. |
vbAlias | 64 | Der angegebene Dateiname ist ein Alias. Nur auf dem Macintosh verfügbar. |
Hinweis: Diese Konstanten werden von Visual Basic for Applications angegeben. Die Namen können überall in Ihrem Code anstelle der tatsächlichen Werte verwendet werden.
Bemerkungen
Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste neben Suchen aus und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
Um zu bestimmen, welche Attribute gesetzt sind, verwenden Sie den Und -Operator, um einen bitweisen Vergleich des von der GetAttr- Funktion zurückgegebenen Werts mit dem Wert des einzelnen gewünschten Dateiattributs durchzuführen. Wenn das Ergebnis nicht Null ist, wird dieses Attribut für die benannte Datei gesetzt. Beispielsweise ist der Rückgabewert des folgenden And -Ausdrucks Null, wenn das Archive-Attribut nicht gesetzt ist:
Result = GetAttr(FName) And vbArchive
Wenn das Archivattribut gesetzt ist, wird ein Wert ungleich Null zurückgegeben.
Beispiel
In diesem Beispiel wird die GetAttr- Funktion verwendet, um die Attribute einer Datei und eines Verzeichnisses oder Ordners zu ermitteln. Auf dem 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.
No comments:
Post a Comment