Closes all disk files opened using the Open statement.
Reset
The Reset statement closes all active files opened by the Open statement and writes the contents of all file buffers to disk.
Dim FileNumber%
For FileNumber = 1 To 5 ' Loop 5 times.
' Open file for output. FileNumber is concatenated into the string
' TEST for the file name, but is a number following a #.
Open App.Path & "\TEST" & FileNumber for Output As # FileNumber
Write # FileNumber, "Hello World" ' Write data to file.
Next FileNumber
Reset ' Close files and write contents to disk.
// Tidy up
For FileNumber = 1 To 5 : Kill App.Path & "\TEST" & FileNumber : Next FileNumber
Close without an argument performs the same action. Reset is VB compatible.
{Created by Sjouke Hamstra; Last updated: 22/10/2014 by James Gaite}