FreeFile Function

Syntax:

FreeFile[( )]

Group:

File

Description:
 

Return the next unused shared stream number (greater than or equal to 256). Streams 1 through 255 are private to each macro. Streams 256 through 511 are shared by all macros.

 

Example:


Sub Main
  Debug.Print FreeFile ' 256
  FN = FreeFile
  Open "XXX" For Output As #FN
  Debug.Print FreeFile ' 257
  Close #FN
  Debug.Print FreeFile ' 256
End
Sub