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 4167 veces
Claramente indica que el archivo no existe.