object.Attributes [= newattributes]
The newattributes argument can have any of the following values or any logical combination of the following values:
Constant | Value | Description |
---|---|---|
Normal | 0 | Normal file. No attributes are set. |
ReadOnly | 1 | Read-only file. Attribute is read/write. |
Hidden | 2 | Hidden file. Attribute is read/write. |
System | 4 | System file. Attribute is read/write. |
Volume | 8 | Disk drive volume label. Attribute is read-only. |
Directory | 16 | Folder or directory. Attribute is read-only. |
Archive | 32 | File has changed since last backup. Attribute is read/write. |
Alias | 64 | Link or shortcut. Attribute is read-only. |
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)) Iff.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 Thenf.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 Thenf.attributes
=f.attributes
+ 32 MsgBox "Archive bit is set." Else MsgBox "Archive bit remains clear." End If End If End Sub
DateCreated Property | DateLastAccessed Property | DateLastModified Property | Drive Property | Files Property | IsRootFolder Property | Name Property | ParentFolder Property | Path Property | ShortName Property | ShortPath Property | Size Property | SubFolders Property | Type PropertyApplies To: File Object | Folder Object