Reset 関数

[アーティクル]
09/30/2008

更新 : 2007 年 11 月

FileOpen 関数で開いたすべてのファイルを閉じます。

My 機能を使用すると、Reset を使用するよりもファイル I/O 処理の生産性とパフォーマンスが格段に向上します。詳細については、「My.Computer.FileSystem オブジェクト」を参照してください。

Public Sub Reset()

解説

Reset 関数は、FileOpen 関数で開かれたすべてのアクティブなファイルを閉じます。FileClose() 関数にパラメータを指定しない場合と同じ機能です。

使用例

次の例は、Reset 関数を使って、開いているファイルをすべて閉じて、ファイルバッファに残っている内容をディスクに書き込みます。この例では、オブジェクト型 (Object) の変数 FileNumber を文字列と数値の両方の変数として使っています。

' Open 5 files named TEST1, TEST2, etc.
Dim fileNumber As Integer
' Open 5 files.
For fileNumber = 1 To 5
   FileOpen(fileNumber, "TEST" & fileNumber, OpenMode.Output)
   PrintLine(fileNumber, "Hello World")
Next fileNumber
' Close files and write contents to disk.
Reset()