GetAttr 函数

返回表示文件、目录或文件夹的属性的 Integer 。

语法

GetAttr (pathname)

所需的 pathname参数 是指定文件名的 字符串表达式 。 pathname 可以包括目录或文件夹以及驱动器。

返回值

GetAttr 所返回的值是以下属性值的和：

常量	值	说明
vbNormal	0	正常。
vbReadOnly	1	只读。
vbHidden	2	隐藏。
vbSystem	4	系统文件。 在 Macintosh 上不可用。
vbDirectory	16	目录或文件夹。
vbArchive	32	文件自上次备份以来已发生更改。 在 Macintosh 上不可用。
vbAlias	64	指定文件名为别名。 仅在 Macintosh 上可用。

注意

这些常量由 Visual Basic for Applications 指定。 这些名称可在代码中的任何位置使用来代替实际值。

备注

若要确定设置的属性，请使用 And 运算符对 GetAttr 函数返回的值和所需的单个文件属性的值执行按位比较。 如果结果不为零，则为命名的文件设置该属性。 例如，如果未设置 Archive 属性，则以下 And 表达式的返回值为零：

Result = GetAttr(FName) And vbArchive

如果设置 Archive 属性，则返回非零值。

示例

此示例使用 GetAttr 函数确定文件和目录或文件夹的属性。 在 Macintosh 上，只有常量 vbNormal、 vbReadOnly、 vbHidden 和 vbAlias 可用。

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE")    ' Returns 2.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And vbHidden    

' Assume file TESTFILE has hidden and read-only attributes set.
MyAttr = GetAttr("TESTFILE")    ' Returns 3.

' Returns nonzero if hidden attribute is set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)    

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR")    ' Returns 16.

另请参阅

• 函数 (Visual Basic for Applications)

支持和反馈

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