GetErrorExt es una cadena adicional al error que indica con mas detalle en donde
ocurrio el error, por ejemplo, GetError puede devolver "Archivo no encontrado"
y GetErrorExt devuelve el *nombre* del archivo que no fue encontrado
Te recuerdo que el caracter & es un Ampersam.
En Código Visual Basic podemos aplicarlo así
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
GeneraCFD(Application.StartupPath & "\FacturaEcodex98.ini", "a0123456789")
If GetError().ToString.Length > 0 Then
MsgBox(GetError() & " " & GetErrorExt(), vbInformation, "Aviso")
Else
MsgBox("El XML ha sido generado", vbInformation, "Aviso")
End If
End Sub
Declaramos la función GetErrorExt()
<Runtime.InteropServices.DllImport("CFDLib.dll", Charset:=Runtime.InteropServices.CharSet.Ansi, SetLastError:=True, ExactSpelling:=True, Entrypoint:="GetErrorExt")> _
Public Shared Function GetErrorExt() As String
End Function
Compilamos y...
- Captura2.JPG (21.05 KiB) Visto 4310 veces