This is preliminary documentation and subject to change.
To comment on this topic, please send us email at ngwssdk@microsoft.com. Thanks!
Reset Statement Example
This example uses the
Reset statement to close all open files and write the contents of all file buffers to disk. Note the use of the
Variant variable
FileNumber
as both a string and a number.
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 "TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hello World" ' Write data to file.
Next FileNumber
Reset
' Close files and write contents
' to disk.