语 法:
GetAttr (pathname)
必需的 pathname 参数是一个指定文件名的字符串表达式。 pathname 可以包括目录或文件夹以及驱动器。
返回值（所返回的值是以下属性值的和）:
|
常量
|
值
|
说明
|
|
vbNormal
|
0
|
正常。
|
|
vbReadOnly
|
1
|
只读。
|
|
vbHidden
|
2
|
已隐藏。
|
|
vbSystem
|
4
|
系统文件。 在 Macintosh 上不可用。
|
|
vbDirectory
|
16
|
目录或文件夹。
|
|
vbArchive
|
32
|
文件自上次备份以来已发生更改。 在 Macintosh 上不可用。
|
|
vbAlias
|
64
|
指定文件名为别名。 仅在 Macintosh 上可用
。
|
备 注:
若要确定哪些属性已设置，请使用 AND 运算符对 GetAttr 函数返回的值和所需的单个文件属性的值执行按位比较。如果结果不为零，则该文件设置该属性。
示 例：
确定目标文件是否设置隐藏属性。
Dim MyAttr
MyAttr = GetAttr("E:\新建文件夹\文件.txt")
Debug.Print MyAttr And vbHidden 'Returns 2
Debug.Print MyAttr And vbReadOnly 'Returns 0
