On Error Resume Next

Esta variante de la instrucción On Error, hace que al producirse un error, la ejecución continúe con la siguiente línea de código, por lo que no utiliza etiquetas de control para desviar la ejecución. Debido a sus características, en este tipo de captura de errores, tras cada línea susceptible de provocar un error, debemos consultar los valores del objeto Err, para comprobar si existe un error, y actuar en consecuencia. En este tipo de situaciones, después de comprobar un error, debemos inicializar el objeto Err, llamando a su método Clear( ). 

Veamos pues, un ejemplo de este tipo de gestión de errores en el Código fuente 365.

Public Sub Main()

On Error Resume Next

Dim dtFecha As Date

Console.WriteLine("Introducir una fecha")

dtFecha = Console.ReadLine()

If Err.Number > 0 Then

Console.WriteLine("Error: {0} - {1}", Err.Number, Err.Description)

Console.ReadLine()

Err.Clear()

End If

Console.WriteLine("Esta línea se ejecuta después de un posible error")

Console.ReadLine()

End Sub

Código fuente 365