FileAttr 函数

返回 Open 语句打开的文件的访问模式或文件访问编号。文件访问编号取决于操作系统（OSH = 操作系统句柄）。

批注图标

如果您使用的是 32 位操作系统，则不能使用 FileAttr 函数来确定文件访问编号。


请参阅：Open

语法：

FileAttr (FileNumber As Integer, Attribute As Integer)

返回值：

整数

参数：

FileNumber：使用 Open 语句打开的文件编号。

Attribute：表示要返回的文件信息类型的整数表达式，其值可以是：

1：FileAttr 函数指示文件的访问模式。

2: FileAttr 函数返回操作系统的文件访问编号。

如果您将参数属性指定为 1，则可以应用以下返回值：

1 - INPUT（打开文件进行输入）

1 - OUTPUT（打开文件进行输出）

4 - RANDOM（打开文件进行随机访问）

8 - APPEND（打开文件进行附加）

32 - BINARY（以二进制模式打开文件）。

错误代码：

5 无效的过程调用

52 错误的文件名或编号

示例：

Sub ExampleFileAttr

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

    aFile = "c:\data.txt"

    iNumber = Freefile

    Open aFile For Output As #iNumber

    Print #iNumber, "This is a line of text"

    MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"

    MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"

    Close #iNumber

End Sub