Error 67 Too many files 1

[dlpastel]

I have a program that gets very busy from time to time and when I try to do a FreeFile it says Error 67 Too many files. How do I get around this.
1. Do I add a files= statement to config.sys.
2. I do not have a config.sys. Do I create one in the root?
3. How can I find out how many files are open so I know what to set the value to.

Thanks,
Dan

 

[Golom]

You're hitting a VB limit ... not an OS limit. VB can have a maximum of 512 files open at once and that error message means that you're exceeding that value.

FreeFile will return either the next available file number or will raise an error (the one you are seeing) if you are trying to exceed 512.

You can access the file numbers 1-255 with

n = FreeFile

and the numbers from 256-512 with

n = FreeFile(1)

If you just use FreeFile without the parameter then you're restricted to 255.

You could try something like

On Error Resume Next
n = FreeFile
If Err.Number = 67 then
   Err.Clear
   n = FreeFile(1)
   If Err.Number = 67 Then
      MsgBox "More than 512 files in use"
   End If
End If

 

[dlpastel]

Thanks!

 

[dglienna]

Have a star. Never knew that!

-David
2006 Microsoft Valueable Professional (MVP)
2006 Dell Certified System Professional (CSP)