Controlando GetError() Parte 4

[visitante32]

Como GetError regresa un String. Saber si ha sucedido un error es muy fácil controlar el error.

Solo hay que saber si GetError().ToString.Length > 0
He modificado el código de abajo para que use el archivo FacturaEcodex98.ini
Ese archivo no existe por lo cual la librería debe mostrar un error.

Try
GeneraCFD(Application.StartupPath & "\FacturaEcodex98.ini", "a0123456789")

If GetError().ToString.Length > 0 Then
MsgBox(GetError(), vbInformation, "Aviso")
Else
MsgBox("El XML ha sido generado", vbInformation, "Aviso")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

Compilamos y obtenemos el siguiente mensaje.

Captura1.JPG (14.55 KiB) Visto 4504 veces

Claramente indica que el archivo no existe.