/text/sbasic/shared/03020104.xhp

Reset statement Reset Statement Closes all open files and writes the contents of all file buffers to the harddisk.

Syntax: Reset Example: Sub ExampleReset On Error GoTo ErrorHandler Dim iNumber As Integer Dim iCount As Integer Dim sLine As String Dim aFile As String aFile = "c:\data.txt" iNumber = Freefile Open aFile For Output As #iNumber Print #iNumber, "This is a new line of text" Close #iNumber iNumber = Freefile Open aFile For Input As iNumber For iCount = 1 To 5 Line Input #iNumber, sLine If sLine <>"" Then Rem End If Next iCount Close #iNumber Exit Sub ErrorHandler: Reset MsgBox "All files will be closed",0,"Error" End Sub