Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
50 lines (32 sloc) 1.6 KB
title keywords f1_keywords ms.prod ms.assetid ms.date localization_priority
FreeFile function (Visual Basic for Applications)
vblr6.chm1008926
vblr6.chm1008926
office
b3fda54f-0cbd-788b-e944-d7d7b07a02a1
12/12/2018
Normal

FreeFile function

Returns an Integer representing the next file number available for use by the Open statement.

Syntax

FreeFile [ (rangenumber) ]

The optional rangenumber argument is a Variant 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

See also

[!includeSupport and feedback]

You can’t perform that action at this time.