GetAttr-FunktionGetAttr function

Gibt eine ganze Zahl zurück, die die Attribute einer Datei, eines Verzeichnisses oder eines Ordners darstellt.Returns an Integer representing the attributes of a file, directory, or folder.

SyntaxSyntax

GetAttr (Pfadname)GetAttr(pathname)

Das erforderliche pathname - Argument ist ein Zeichenfolgenausdruck , der einen Dateinamen angibt.The required pathname argument is a string expression that specifies a file name. Der Pfadname kann das Verzeichnis oder den Ordner sowie das Laufwerk beinhalten.The pathname may include the directory or folder, and the drive.

RückgabewerteReturn values

Der von GetAttr zurückgegebene Wert ist die Summe der folgenden Attributwerte:The value returned by GetAttr is the sum of the following attribute values:

KonstanteConstant WertValue BeschreibungDescription
vbNormalvbNormal 00 Normal.Normal.
vbReadOnlyvbReadOnly 11 Schreibgeschützt.Read-only.
vbHiddenvbHidden 22 Versteckt.Hidden.
vbSystemvbSystem 44 Systemdatei.System file. Unter Macintosh nicht verfügbar.Not available on the Macintosh.
vbDirectoryvbDirectory 1616 Verzeichnis oder Ordner.Directory or folder.
vbArchivevbArchive 3232 Datei wurde seit der letzten Sicherung geändert.File has changed since last backup. Unter Macintosh nicht verfügbar.Not available on the Macintosh.
vbAliasvbAlias 6464 Der angegebene Dateiname ist ein Alias.Specified file name is an alias. Nur unter Macintosh verfügbar.Available only on the Macintosh.

Hinweis

[!HINWEIS] Diese Konstanten sind durch Visual Basic for Applications festgelegt.These constants are specified by Visual Basic for Applications. Die Namen können an einer beliebigen Stelle im Code anstelle der tatsächlichen Werte verwendet werden.The names can be used anywhere in your code in place of the actual values.

HinweiseRemarks

Um festzustellen, welche Attribute festgelegt sind, verwenden Sie den and- Operator, um einen bitweisen Vergleich des von der GetAttr-Funktion zurückgegebenen Werts und des Werts des gewünschten Dateiattributs durchzuführen. ****To determine which attributes are set, use the And operator to perform a bitwise comparison of the value returned by the GetAttr function and the value of the individual file attribute you want. Wenn das Ergebnis nicht null ist, ist das Attribut für die benannte Datei festgelegt.If the result is not zero, that attribute is set for the named file. Der Rückgabewert des folgenden And -Ausdrucks ist beispielsweise null, wenn das Attribut "Archive" nicht festgelegt ist:For example, the return value of the following And expression is zero if the Archive attribute is not set:

Result = GetAttr(FName) And vbArchive

Wenn das Attribut "Archive" festgelegt ist, wird ein Wert ungleich 0 zurückgegeben.A nonzero value is returned if the Archive attribute is set.

BeispielExample

In diesem Beispiel wird die GetAttr -Funktion verwendet, um die Attribute einer Datei und eines Verzeichnisses oder eines Ordners zu bestimmen.This example uses the GetAttr function to determine the attributes of a file and directory or folder. Unter Macintosh sind nur die Konstanten vbNormal, vbReadOnly, vbHidden und vbAlias verfügbar.On the Macintosh, only the constants vbNormal, vbReadOnly, vbHidden, and vbAlias are available.

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.

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.