书上说是511,而且freefile函数的返回值最大也是511,
可是我用512打开一个文件却成功了,这是怎么回事呢?

解决方案 »

  1.   

    FreeFile函数 返回 返回一个 Integer,代表下一个可供 Open 语句使用的文件号。语法FreeFile[(rangenumber)]可选的参数 rangenumber 是一个 Variant,它指定一个范围,以便返回该范围之内的下一个可用文件号。指定 0(缺省值)则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。说明使用 FreeFile 提供一个尚未使用的文件号。
      

  2.   

    我认为:这是CSDN中的一个BUG,有效文件号应该是1-512试试下面的代码:
    Dim i As Long
    For i = 1 To 511
    Open "c:\1.txt" For Binary As #i
    Next
    Debug.Print FreeFile(1)
    Close输出:512