更新时间：2023-02-05 21:19
Attributes属性设置或返回文件或文件夹的属性。可读写或只读（与属性有关）。
newattributes
可选项。如果指定此参数，则 newattributes 为指定的 object 的属性的新值。
asdf
设置newattributes 参数可为下列设置之一或下列设置的合理组合：
说明忽略对只读属性（别名，压缩或目录）所作的改变.
当设置属性时，应首先阅读当前属性，然后按要求改变个别属性，最后反写属性.
以下代码举例说明如何使用 Attributes 属性：
Function ToggleArchiveBit(filespec)
Dim fso, f
Set f = fso.GetFile(filespec)
If f.attributes and 32 Then
f.attributes = f.attributes - 32
Else
f.attributes = f.attributes + 32
End If
End Function