Attributes 属性

设置或返回文件或文件夹的属性。 可读/写或只读，具体取决于属性。

语法

对象。属性 [= newattributes ]

Attributes 属性包含以下部分：

Part	说明
object	必填。 始终是 File 或 Folder 对象的名称。
newattributes	可选。 如果提供，则 newattributes 为指定 object 的属性的新值。

设置

newattributes 参数可以具有以下任何值或以下值的任何逻辑组合。

常量	值	Description
Normal	0	普通文件。 未设置属性。
ReadOnly	1	只读文件。 属性是可读/写的。
Hidden	2	隐藏文件。 属性是可读/写的。
系统	4	系统文件。 属性是可读/写的。
Volume	8	磁盘驱动器卷标。 属性是只读的。
Directory	16	文件夹或目录。 属性是只读的。
存档	32	文件自上次备份以来已发生更改。 属性是可读/写的。
Alias	1024	链接或快捷方式。 属性是只读的。
压缩	2048	压缩文件。 属性是只读的。

备注

以下代码演示如何将 Attributes 属性与 文件配合使用。

Sub SetClearArchiveBit(filespec)
    Dim fs, f, r
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(fs.GetFileName(filespec))
    If f.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 Then 
            f.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 Then 
f.attributes = f.attributes + 32
            MsgBox "Archive bit is set."
        Else
            MsgBox "Archive bit remains clear."
        End If
    End If
End Sub

另请参阅

• 对象 (Visual Basic for Applications)
• Visual Basic 语言参考

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。