Attributes Property
Sets or returns the attributes of files or folders. Read/write or read-only, depending on the attribute.
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 |
1024 |
Link or shortcut. Attribute is read-only. |
|
Compressed |
2048 |
Compressed file. Attribute is read-only. |
The following code illustrates the use of the Attributes property with a file:
function ToggleArchiveBit(filespec) { var fso, f, r, s; fso = new ActiveXObject("Scripting.FileSystemObject"); f = fso.GetFile(filespec) if (f.attributes & 32) { f.attributes = f.attributes - 32; s = "Archive bit is cleared."; } else { f.attributes = f.attributes + 32; s = "Archive bit is set."; } return(s); }
Function ToggleArchiveBit(filespec)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
If f.attributes and 32 Then
f.attributes = f.attributes - 32
ToggleArchiveBit = "Archive bit is cleared."
Else
f.attributes = f.attributes + 32
ToggleArchiveBit = "Archive bit is set."
End If
End Function
