Reset 函数

项目
08/18/2008

更新：2007 年 11 月

关闭所有用 FileOpen 函数打开的磁盘文件。

在文件 I/O 操作中，My 功能具有比 Reset 更高的效率和更好的性能。有关更多信息，请参见 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()