Reset

关闭所有使用Open语句打开的磁盘文件。

语法：Reset

Reset语句关闭所有由Open语句打开的活动文件，并将所有文件缓冲区的内容写入磁盘。

示例

本示例使用Reset语句关闭所有打开的文件并将所有文件缓冲区的内容写入磁盘。

Dim FileNumber
For FileNumber = 1 To 5    ' Loop 5 times.
    Open "TEST" & FileNumber For Output As #FileNumber
    Write #FileNumber, "Hello World"    ' Write data to file.
Next FileNumber
Reset    ' Close files and write contents to disk.

另请参阅

• Close语句