注意: 我们希望能够尽快以你的语言为你提供最新的帮助内容。本页面是自动翻译的，可能包含语法错误或不准确之处。我们的目的是使此内容能对你有所帮助。可以在本页面底部告诉我们此信息是否对你有帮助吗？请在此处查看本文的英文版本以便参考。
注意: 如果 Microsoft Jet 表达式服务运行在沙盒模式下，可防止潜在不安全的表达式的求值，则禁用函数、 方法、 对象或本主题中介绍的属性。沙盒模式的详细信息，"沙盒模式"中搜索帮助。
返回一个 Long 表示使用Open语句打开的文件的文件模式。
语法
FileAttr ( filenumber ， returntype )
FileAttr函数语法具有以下参数：
参数 | 说明 |
|---|---|
|
filenumber |
必填。整数。任何有效文件编号。 |
|
returntype |
必填。整数。表示数字的信息类型返回。指定 1 可返回一个值，该值文件模式。在 16 位系统，指定 2 检索操作系统文件句柄。returntype 2 32 位系统中不支持，并会导致错误。 |
返回值
Returntype 参数为 1 时，下面的返回值表示文件访问模式：
Mode | 值 |
|---|---|
|
输入 |
1 |
|
输出 |
2 |
|
随机 |
4 |
|
追加 |
8 |
|
二进制 |
32 |
示例
注意: 下面的示例说明使用此函数在 Visual Basic for Applications (VBA) 模块。有关处理 VBA 的详细信息，搜索旁边的下拉列表中选择开发人员参考，然后在搜索框中输入一个或多个术语。
此示例使用FileAttr函数返回打开的文件的文件模式和文件句柄。仅返回 16 位系统; 文件句柄在 32 位系统作为第二个参数传递 2 生成错误。
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.
