# Attributes 属性
object.Attributes [= newattributes]
设置或返回文件或文件夹的属性。可读写或只读（与属性有关）。
| 参数 | 描述 |
|---|---|
| object | 应为 File 或 Folder 对象的名称。 |
| newattributes | 可选项。如果指定此参数，则 newattributes 为指定的 object 的属性的新值。 参数可为下列设置之一或下列设置的合理组合： Normal=0 普通文件。没有设置任何属性。 ReadOnly=1 只读文件。可读写。 Hidden=2 隐藏文件。可读写。 System=4 系统文件。可读写。 Directory=16 文件夹或目录。只读。 Archive=32 上次备份后已更改的文件。可读写。 Alias=1024 链接或快捷方式。只读。 Compressed=2048 压缩文件。只读。 |
说明 忽略对只读属性（别名，压缩或目录）所作的改变.
当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性.
以下代码举例说明如何使用 Attributes 属性：
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 = "清空归档位。"
Else
f.attributes = f.attributes + 32
ToggleArchiveBit = "设置归档位。"
End If
End Function
1
2
3
4
5
6
7
8
9
10
11
12
2
3
4
5
6
7
8
9
10
11
12
应用于