GetAttr

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

语法：GetAttr( pathname )

pathname

必需 字符串表达式，指定文件名。pathname可以包含目录或文件夹以及驱动器。

返回值

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

常量	值	描述
vbNormal	0	普通。
vbReadOnly	1	只读。
vbHidden	2	隐藏。
vbSystem	4	系统文件。
vbDirectory	16	目录或文件夹。
vbArchive	32	自上次备份后文件已更改。

要确定设置了哪些属性，请使用And运算符对GetAttr返回的值与要测试的单个文件属性值进行按位比较。如果结果不为零，则该文件的该属性已设置。

Result = GetAttr(FName) And vbArchive

如果设置了存档属性，则返回非零值。

示例

本示例使用GetAttr函数确定文件和目录或文件夹的属性。

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.

另请参阅

• Dir函数