GetAttr 函数

注意: 我们希望能够尽快以你的语言为你提供最新的帮助内容。本页面是自动翻译的,可能包含语法错误或不准确之处。我们的目的是使此内容能对你有所帮助。可以在本页面底部告诉我们此信息是否对你有帮助吗?请在此处查看本文的英文版本以便参考。

注意: 如果 Microsoft Jet 表达式服务运行在沙盒模式下,可防止潜在不安全的表达式的求值,则禁用函数、 方法、 对象或本主题中介绍的属性。沙盒模式的详细信息,"沙盒模式"中搜索帮助。

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

语法

GetAttr 路径名

需要的路径名参数是字符串表达式所指定的文件名。路径名可能包括目录或文件夹和驱动器。

返回值

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

常量

说明

vbNormal

0

普通。

vbReadOnly

1

只读的。

vbHidden

2

隐藏。

vbSystem

4

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

vbDirectory

16

目录或文件夹。

vbArchive

32

文件具有自上次备份后更改。在 Macintosh 上不可用。

vbAlias

64

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


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

备注

注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 VBA 的详细信息,搜索旁边的下拉列表中选择开发人员参考,然后在搜索框中输入一个或多个术语。

要确定设置了哪些属性,请使用运算符执行按位比较GetAttr函数以及所需的单个文件属性的值返回的值。如果结果不为零,该属性设置为命名的文件。例如,以下表达式的返回值为零,如果未设置存档属性:

Result = GetAttr(FName) And vbArchive

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

示例

此示例使用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 支持专员。

×