IBM Lotus Symphony
|
Activa una rutina de manejo de errores después de producirse éstos o continúa la ejecución del programa.
On {Error GoTo NombreEtiqueta | GoTo 0 | Resume Next}
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 seguía a aquélla en la que se produjo el error.
GoTo 0: Desactiva el manejador de errores en el procedimiento actual.
La instrucción On Error GoTo se usa para reaccionar a errores que se producen en una macro. La instrucción debe insertarse al principio de un procedimiento (en una rutina de manejo de errores local) o de un módulo.
Sub EjemploReset
On Error Goto ManejadorError
Dim iNumero As Integer
Dim iContador As Integer
Dim sLinea As String
Dim aArchivo As String
aArchivo = "c:\data.txt"
iNumero = Freefile
Open aArchivo For Output As #iNumero
Print #iNumero, "Esta es una línea de texto"
Close #iNumero
iNumero = Freefile
Open aArchivo For Input As iNumero
For iContador = 1 to 5
Line Input #iNumero, sLinea
If sLine <>"" then
rem
end if
Next iContador
Close #iNumero
Exit Sub
ManejadorError:
Restablecer
MsgBox "Todos los archivos se cerrarán",0,"Error"
End Sub