Yo en .net hago esto:
Private ListaErrores As List(Of String)
Public Function ValidarXmlContraXsd(ByVal rutaXml As String, ByVal rutaXsd As String) As Boolean
ListaErrores = New List(Of String)()
Dim settings As New XmlReaderSettings()
settings.ValidationType = ValidationType.Schema
settings.ValidationFlags = settings.ValidationFlags Or XmlSchemaValidationFlags.ReportValidationWarnings
Try
settings.Schemas.Add(Nothing, rutaXsd)
Catch ex As Exception
Throw New Exception("Error al cargar el archivo XSD: " & ex.Message)
End Try
AddHandler settings.ValidationEventHandler, AddressOf CapturarErrorValidacion
Try
Using reader As XmlReader = XmlReader.Create(rutaXml, settings)
' Recorrer todo el XML para forzar la validación completa
While reader.Read()
End While
End Using
Catch ex As Exception
ListaErrores.Add("Error de lectura/sintaxis XML: " & ex.Message)
End Try
If ListaErrores.Count = 0 Then
' Console.WriteLine("El archivo XML es VÁLIDO según el XSD.")
Return True
Else
' Console.WriteLine("Se encontraron " & ListaErrores.Count & " errores de validación:")
For Each err As String In ListaErrores
Console.WriteLine("- " & err)
Next
Return False
End If
End Function
La llamo asi:
Dim esValidoXsd As Boolean = ValidarXmlContraXsd("altaFacturas1.xml", Application.StartupPath & "\os-UBL-2.5\xsd\maindoc\UBL-Invoice-2.5.xsd")
If Not esValidoXsd Then
' Une todos los errores de la lista en un solo texto separado por saltos de línea para mostrarlos en el MsgBox
Dim detalleErrores As String = String.Join(Environment.NewLine, ListaErrores)
MsgBox("El XML no es válido. Errores encontrados:" & Environment.NewLine & detalleErrores, MsgBoxStyle.Critical, "Error de Validación XSD")
Exit Sub
Else
MsgBox("El archivo XML es VÁLIDO según el XSD.", MsgBoxStyle.Information)
End If
el xsd lo baje del fichero comrprimido UBL-2.5.zip que esta en
https://docs.oasis-open.org/ubl/os-UBL-2.5/ para una vez descomprimido poder llamar a la ruta local \os-UBL-2.5\xsd\maindoc\UBL-Invoice-2.5.xsd