Página 1 de 1

Controlando GetError() Parte 4

Publicado: Dom Mar 25, 2012 5:01 pm
por 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
Captura1.JPG (14.55 KiB) Visto 4506 veces
Claramente indica que el archivo no existe.