/// <summary>
/// crée le schéma xml correspondant au fichier xml en entrée
/// </summary>
/// <param name="InputUri">le chemin vers le fichier xml</param>
/// <param name="Path">le chemin de sortie vers le schéma xml à créer</param>
private sub CreateXmlSchema(string InputUri, string Path)
Dim oXmlReader As Xml.XmlReader = Xml.XmlReader.Create(InputUri)
Dim oXmlSchemaSet As Xml.Schema.XmlSchemaSet = New Xml.Schema.XmlSchemaSet
Dim oXmlSchemaInference As System.Xml.Schema.XmlSchemaInference = New Xml.Schema.XmlSchemaInference
oXmlSchemaSet = oXmlSchemaInference.InferSchema(oXmlReader)
Dim red As IO.TextWriter = New IO.StreamWriter(Path)
For Each oXmlSchema As System.Xml.Schema.XmlSchema In oXmlSchemaSet.Schemas
oXmlSchema.Write(red)
Next
End sub