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.

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

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

此信息是否有帮助?

谢谢您的反馈!

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

×