Private
Function ValidateAgainstXsd(ByVal objXmlDoc As XmlDocument, _ ByVal strXsdPath As String) Dim objDOMValidatingReader As XmlValidatingReader objDOMValidatingReader = New XmlValidatingReader( _ objXmlDoc.OuterXml, _ XmlNodeType.Element, _ Nothing) objDOMValidatingReader.Schemas.Add(Nothing, strXsdPath) objDOMValidatingReader.ValidationType = ValidationType.Schema AddHandler objDOMValidatingReader.ValidationEventHandler, AddressOf ValidationHandler 'While there is XML Elements - loop While objDOMValidatingReader.Read() End While End Function--
This posting is provided "AS IS" with no warranties, and confers no rights.
"Patrick Lam" <Patri...@unsubscribe.null> wrote in message
news:10250180...@ernani.logica.co.uk...