Table of contents
TOC
Collapse the table of content
Expand the table of content

Attributes Property

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Description Sets or returns the attributes of files or folders. Read/write or read-only, depending on the attribute. Syntaxobject. Attributes [= newattributes ] The Attributes property has these parts:

PartDescription
objectRequired. Always the name of a File or Folder object.
newattributesOptional. If provided, newattributes is the new value for the attributes of the specified object.

Settings The newattributes argument can have any of the following values or any logical combination of the following values:

ConstantValueDescription
Normal0Normal file. No attributes are set.
ReadOnly1Read-only file. Attribute is read/write.
Hidden2Hidden file. Attribute is read/write.
System4System file. Attribute is read/write.
Volume8Disk drive volume label. Attribute is read-only.
Directory16Folder or directory. Attribute is read-only.
Archive32File has changed since last backup. Attribute is read/write.
Alias64Link or shortcut. Attribute is read-only.
Compressed128Compressed file. Attribute is read-only.

Remarks The following code illustrates the use of the Attributes property with a file:

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
© 2018 Microsoft