/text/sbasic/shared/03020104.xhp

Reset statement Reset Statement [Runtime] 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