Public Class xr
        Inherits XmlResolver
 
        Public Overrides WriteOnly Property Credentials() As _
          System.Net.ICredentials
            Set(ByVal value As System.Net.ICredentials)
 
            End Set
        End Property
 
        Public Overrides Function GetEntity(ByVal absoluteUri As System.Uri, _
          ByVal role As String, ByVal ofObjectToReturn As System.Type) As Object
                Return New IO.FileStream(absoluteUri.LocalPath, _
                IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
        End Function
    End Class
 
    Private Function validiereMemStream(ByVal mStream As IO.MemoryStream) As _
      String
 
        Dim settings As XmlReaderSettings = New XmlReaderSettings
 
        Dim schemaPath As String = "F:\Work Dev\VSNet Dev" & _
          "2005\Test\XMLschematest"
        settings.Schemas.XmlResolver = New xr
 
        For Each Name As String In IO.Directory.GetFiles(schemaPath, "*.xsd")
 
            Dim fn As String = IO.Path.GetFileNameWithoutExtension(Name)
            settings.Schemas.Add("http://example.org/" & fn, Name)
 
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist