nTempFile = FreeFile()，报错:实时错误67(文件太多),该怎么理解?

Question

有谁有这方面的经验?

Answer 1

FreeFile 函数返回一个 Integer，代表下一个可供 Open 语句使用的文件号。语法FreeFile[(rangenumber)]可选的参数 rangenumber 是一个 Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。说明使用 FreeFile 提供一个尚未使用的文件号。
FreeFile 函数示例
本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。Dim MyIndex, FileNumber
For MyIndex = 1 To 5　　　　' 循环五次。
　FileNumber = FreeFile　　　　' 取得未使用的文件号。
　Open "TEST" & MyIndex For Output As #FileNumber　　　' 创建文件名。
　Write #FileNumber, "This is a sample."　　　' 输出文本至文件中。
　Close #FileNumber　　　' 关闭文件。
Next MyIndex

Answer 2

异常/错误
异常类型     错误号  条件 
IOException  67      正在使用的文件数超过 255。 

Answer 3

哦哦哦哦，我还以为楼主OPEN的文件数大于Integer哪。

Answer 4

文件数大于Integer???强，建议杀毒，呵呵

Answer 5

同时打255个文件？VB能忙过来，你的机器也忙不过来呀。有open没close的过程执行太多所至。

Answer 6

有close,但执行时就会出现这种情况,我在是winsock_dataarrival里执行的,最奇怪的是,我单步跟踪就很少出这种问题,但让程序自己执行就很容易出现这种情况

Answer 7

那有可能是用了不合适的On Error语句，对打开文件出错的情况，没有及时进行Close处理。