Table of contents
TOC
Collapse the table of content
Expand the table of content

FreeFile Function

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

Returns an Integer representing the nextfile number available for use by the Open statement. SyntaxFreeFile [ (rangenumber) ] The optional rangenumber argument is aVariant that specifies the range from which the next free file number is to be returned. Specify a 0 (default) to return a file number in the range 1 - 255, inclusive. Specify a 1 to return a file number in the range 256 - 511. Remarks Use FreeFile to supply a file number that is not already in use.

Example

This example uses the FreeFile function to return the next available file number. Five files are opened for output within the loop, and some sample data is written to each.

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file
        ' number.
    Open "TEST" &; MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex
© 2017 Microsoft