Attributes

newattributes

可选项。如果指定此参数，则 newattributes 为指定的 object 的属性的新值。

asdf

设置 newattributes 参数可为下列设置之一或下列设置的合理组合：

说明忽略对只读属性（别名，压缩或目录）所作的改变.

当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性.

以下代码举例说明如何使用 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