IBM Lotus Symphony


FreeFile 関数 [実行時]

ファイルを開くために、次に使用可能なファイル番号を返します。この関数は、現在開いているファイルでまだ使用されていないファイル番号を使用してファイルを開くために使用します。

構文:

FreeFile

戻り値:

整数

パラメータ:

この関数は、Open ステートメントの直前でのみ使用できます。FreeFile は次に使用可能なファイル番号を返しますが、それを予約しません。

エラーコード

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


製品フィードバック | その他の資料 | 商標