Attributes-Eigenschaft

Artikel
09/16/2024

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:

Bestandteil	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.

Einstellungen

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".

Hinweise

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.

Freigeben über