Validating xml against .xsd

[Jan Eliasen]

Hi

I have programmed a small program in VB.NET to validate an
xml-document against an .xsd. You can find my code at the bottom of
this posting. My problem is, that if I have an unqualified xml-file
and the xsd imports three other xsd's then it does not work. It works
just fine for a qualified xml-file and four .xsds and it works fine
with an unqualified xml-document and only one .xsd. But the import of
three others really messes things up.

Any help is appriciated!

Code;
Public Function ValidateXMLwith Schema(ByVal XmlFileName As String,
ByVal XsdFileName As String) As Boolean

Dim xsc As XmlSchemaCollec tion = New XmlSchemaCollec tion()

Try
xsc.Add(Nothing , XsdFileName)
Catch ex As Exception
errString += vbNewLine & "Error: " & ex.Message
Return False
End Try

Dim reader As XmlTextReader
Try
reader = New XmlTextReader(X mlFileName)
Catch ex As Exception
Return False
End Try

Dim vReader As XmlValidatingRe ader = New
XmlValidatingRe ader(reader)

vReader.Schemas .Add(xsc)
vReader.Validat ionType = ValidationType. Schema

AddHandler vReader.Validat ionEventHandler , AddressOf
ValidationCallB ack

Try
While vReader.Read()
End While
Catch ex As Exception
fejlString += vbNewLine & "Error: " & ex.Message
Return False
End Try

reader.Close()
vReader.Close()
Return True
End Function 'Validate

--
Jan Eliasen, representing himself and not the company he works for.