注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则本主题中描述的函数、方法、对象或属性将被禁用，这会阻止对潜在不安全表达式进行评估。 有关沙盒模式的详细信息，请在帮助中搜索“沙盒模式”。
返回表示使用 Open 语句打开的文件的文件模式的 Long。
语法
FileAttr (filenumber，returntype)
FileAttr 函数语法具有以下参数：
| 参数 | 说明 |
|---|---|
| filenumber | 必需。 整数。 任何有效的文件编号。 |
| ReturnType | 必需。 整数。 指示要返回的信息类型的数字。 指定 1 以返回指示文件模式的值。 仅在 16 位系统上，指定 2 以检索操作系统文件句柄。 ReturnType 2 在 32 位系统中不受支持，会导致错误。 |
返回值
当 returntype参数为 1 时，以下返回值指示文件访问模式：
| 众数 | 值 |
|---|---|
| 输入 | 1 |
| 输出 | 2 |
| 随机 | 4 |
| 追加 | 8 |
| Binary（二进制） | 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.