GetAttr-Funktion

Artikel
09/02/2008

Aktualisiert: November 2007

Gibt einen FileAttribute-Wert zurück, der die Attribute einer Datei, eines Verzeichnisses oder Ordners darstellt.

Das My-Feature ermöglicht bei Datei-E/A-Vorgängen höhere Produktivität und Leistung als FileAttribute. Weitere Informationen hierzu finden Sie unter My.Computer.FileSystem-Objekt.

Public Function GetAttr(ByVal PathName As String) As FileAttribute

Parameter

PathName
Erforderlich. String-Ausdruck, der einen Datei-, Verzeichnis- oder Ordnernamen angibt. PathName kann auch Verzeichnis-, Ordner- sowie Laufwerkangaben enthalten.

Rückgabewert

Der von GetAttr zurückgegebene Wert ist die Summe aus folgenden Enumerationswerten:

Wert	Konstante	Beschreibung
Normal	vbNormal	Normal.
ReadOnly	vbReadOnly	Schreibgeschützt.
Hidden	vbHidden	Ausgeblendet.
System	vbSystem	Systemdatei.
Directory	vbDirectory	Verzeichnis oder Ordner.
Archive	vbArchive	Die Datei wurde nach der letzten Sicherung geändert.
Alias	vbAlias	Die Datei hat einen anderen Namen.

Hinweis:
Diese Enumerationen werden in der Visual Basic-Sprache angegeben. Die Namen können überall im Code anstelle von tatsächlichen Werten verwendet werden.

Ausnahmen

Ausnahmetyp	Fehlernummer	Bedingung
IOException	52	Pathname ist ungültig oder enthält Platzhalterzeichen.
FileNotFoundException	53	Die Zieldatei ist nicht vorhanden.

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlerkontrolle durch Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Hinweise

Lassen Sie mit dem And-Operator den von der GetAttr-Funktion zurückgegebenen Wert und den Wert des gewünschten Dateiattributs Bit für Bit vergleichen, um zu ermitteln, welche Attribute festgelegt sind. Wenn das Ergebnis ungleich 0 (null) ist, ist das jeweilige Attribut für die genannte Datei festgelegt. Der Rückgabewert des folgenden And-Ausdrucks ist z. B. 0 (null), wenn das Archive-Attribut nicht festgelegt ist:

Result = GetAttr(FName) And vbArchive

Wenn das Archive-Attribut festgelegt ist, ist der Rückgabewert ungleich 0 (null).

Beispiel

In diesem Beispiel werden mit der GetAttr-Funktion die Attribute einer Datei und eines Verzeichnisses oder Ordners ermittelt.

Dim MyAttr As FileAttribute
' Assume file TESTFILE is normal and readonly.
MyAttr = GetAttr("C:\TESTFILE.txt")   ' Returns vbNormal.

' Test for normal.
If (MyAttr And FileAttribute.Normal) = FileAttribute.Normal Then
   MsgBox("This file is normal.")
End If

' Test for normal and readonly.
Dim normalReadonly As FileAttribute
normalReadonly = FileAttribute.Normal Or FileAttribute.ReadOnly
If (MyAttr And normalReadonly) = normalReadonly Then
   MsgBox("This file is normal and readonly.")
End If

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("C:\MYDIR")
If (MyAttr And FileAttribute.Directory) = FileAttribute.Directory Then
   MsgBox("MYDIR is a directory")
End If