GetAttr 函数

注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息,请搜索"帮助"中的"沙盒模式"。

返回 一个 整数,表示文件、目录或文件夹的属性。

语法

GetAttr ( pathname)

所需的 路径参数 是 字符串表达式 文件名的一个名称。 路径名称可能包括目录或文件夹以及驱动器。

返回值

GetAttr返回的值是以下属性值的总和:

常数

说明

vbNormal

0

正常。

vbReadOnly

1

只读。

vbHidden

2

隐藏。

vbSystem

4

系统文件。 在 Macintosh 上不可用。

vbDirectory

16

目录或文件夹。

vbArchive

32

自上次备份以来文件已更改。 在 Macintosh 上不可用。

vbAlias

64

指定的文件名是别名。 仅在 Macintosh 上可用。


注意: 这些常量由 Visual Basic for Applications。 可以在代码中的任意位置使用名称来表示实际值。

备注

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 VBA 的信息,请在"搜索"旁边的下拉列表中选择"开发人员参考",在搜索框中输入一个或多个术语。

若要确定哪些属性已设置,请使用 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.

需要更多帮助?

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×