Reset Statement

αž”αž·αž‘β€‹αž―αž€αžŸαžΆαžšβ€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αž”αžΎαž€β€‹αž‘αžΆαŸ†αž„αž’αžŸαŸ‹ αž“αž·αž„β€‹αžŸαžšαžŸαŸαžšβ€‹αž˜αžΆαžαž·αž€αžΆβ€‹αž“αŸƒβ€‹αž’αž„αŸ’αž‚β€‹αž…αž„αž…αžΆαŸ†β€‹αž”αžŽαŸ’αžαŸ„αŸ‡β€‹αž’αžΆαžŸαž“αŸ’αž“β€‹αžšαž”αžŸαŸ‹β€‹αž―αž€αžŸαžΆαžšβ€‹αž‘αžΆαŸ†αž„αž’αžŸαŸ‹β€‹αž‘αŸ…β€‹αž€αžΆαž“αŸ‹β€‹αžαžΆαžŸβ€‹αžšαžΉαž„Β αŸ”

Syntax:

Reset Statement diagram


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, "αž“αŸαŸ‡β€‹αž‡αžΆβ€‹αž”αž“αŸ’αž‘αžΆαžαŸ‹αž’αžαŸ’αžαž”αž‘β€‹αžαŸ’αž˜αžΈ"
    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

Please support us!