Attributes-Eigenschaft

  • Artikel

Legt die Attribute von Dateien oder Ordnern fest oder gibt sie zurück. Je nach Attribut Lese-/Schreibzugriff oder schreibgeschützt.

Syntax

-Objekt.Attribute [= newattributes ]

Die Attributes-Eigenschaft weist folgende Teile auf:

Teil Beschreibung
Objekt Erforderlich. Immer der Name eines File- oder Folder-Objekts.
newattributes Optional. Bei Angabe bildet newattributes den neuen Wert für die Attribute des angegebenen Objekt-Elements.

Settings

Das newattributes-Argument kann einen der folgenden Werte oder eine beliebige logische Kombination der folgenden Werte aufweisen.

Konstante Wert Beschreibung
Normal 0 Normale Datei. Es sind keine Attribute festgelegt.
ReadOnly 1 Schreibgeschützte Datei. Das Attribut ist "Lese-/Schreibzugriff".
Hidden 2 Ausgeblendete Datei. Das Attribut ist "Lese-/Schreibzugriff".
System 4 Systemdatei. Das Attribut ist "Lese-/Schreibzugriff".
Volume 8 Label für das Laufwerksvolume. Das Attribut ist "Schreibgeschützt".
Directory 16 Ordner oder Verzeichnis. Das Attribut ist "Schreibgeschützt".
Archive 32 Datei wurde seit der letzten Sicherung geändert. Das Attribut ist "Lese-/Schreibzugriff".
Alias 1024 Link oder Verknüpfung. Das Attribut ist "Schreibgeschützt".
Komprimiert 2048 Komprimierte Datei. Das Attribut ist "Schreibgeschützt".

HinwBemerkungeneise

Der folgende Code veranschaulicht die Verwendung der Attributes-Eigenschaft mit einer Datei.

Sub SetClearArchiveBit(filespec)
    Dim fs, f, r
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
    If f.attributes and 32 Then
        r = MsgBox("The Archive bit is set, do you want to clear it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
            f.attributes = f.attributes - 32
            MsgBox "Archive bit is cleared."
        Else
            MsgBox "Archive bit remains set."
        End If
    Else
        r = MsgBox("The Archive bit is not set. Do you want to set it?", vbYesNo, "Set/Clear Archive Bit")
        If r = vbYes Then 
f.attributes = f.attributes + 32
            MsgBox "Archive bit is set."
        Else
            MsgBox "Archive bit remains clear."
        End If
    End If
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.