FreeFile Function

ファイルのオープン用に、現在使用可能な次のファイル番号を返します。この関数は、現在オープン中のファイルが使用していないファイル番号を取得する際に使用します。

構文:


FreeFile

戻り値:

整数

パラメーター:

この関数を使用できるのは、Open ステートメントの直前だけです。FreeFile 関数は、利用可能な次のファイル番号を返しますが、この番号を予約するわけではありません。

Error codes:

5 無効なプロシージャー呼び出しです

67 ファイル数が多すぎます

例:


Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
    aFile = "c:\data.txt"
    sMsg = ""
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "First line of text"
    Print #iNumber, "Another line of text"
    Close #iNumber
    iNumber = Freefile
    Open aFile For Input As #iNumber
    While Not eof(#iNumber)
        Line Input #iNumber, sLine
        If sLine <>"" Then
            sMsg = sMsg & sLine & chr(13)
        End If
    Wend
    Close #iNumber
    MsgBox sMsg
End Sub