Contenido

# Instrucción On Error GoTo… Resume

Activa una rutina de tratamiento de errores después de producirse estos o continúa la ejecución del programa.

### Sintaxis:

    On [Local] Error {GoTo Labelname | GoTo 0 | Resume Next}

### Parámetros:

GoTo NombreEtiqueta: Si se produce un error, activa la rutina de manejo de errores que empieza en la línea "NombreEtiqueta".

Resume Next: Si se produce un error, la ejecución del programa continúa con la instrucción que sigue a aquélla en la que se produjo el error.

GoTo 0: Desactiva el manipulador de errores en el procedimiento actual.

Local: Optional. The keyword is a reminder the statement is local to the routine which invokes it; when the routine exits, this error handling is canceled automatically.

### Ejemplo:

    Sub ExampleReset
    On Error GoTo ErrorHandler
        Dim iNumber As Integer
        Dim iCount As Integer
        Dim sLine As String
        Dim aFile As String
        aFile = "C:\Users\ThisUser\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "Este es un renglón de texto"
        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 "Se cerrarán todos los archivos",  0,  "Error"
    End Sub

Temas relacionados

Error-Handling Functions

Open Statement