Extraire des données de plusieurs fichiers xml à la fois

Bonjour
je voudrais savoir comment faire pour extraire les données de plusieurs fichiers xml en même temps sachant qu'il ont tous la même structure.

j'arrive juste a extraire les données d'un seul fichier .

le principe serait de faire un boucle en fonction du nombre des fichiers sélectionné et répéter l'opération plusieurs fois mais je n'y arrive pas .. quelqu'un peut m'aider ?

Merci !

code pour le code pour parcourir les fichiers

Code Visual Basic :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public path As String   For i = 1 To OpenFileDialog1.FileNames.Count OpenFileDialog1.Multiselect = True OpenFileDialog1.Title = ("Load your File") OpenFileDialog1.DefaultExt = "XML" OpenFileDialog1.FileName = String.Empty   OpenFileDialog1.Filter = "Fichiers XML (*.XML) | *.XML|Tout les fichiers (*.*)|*.*" OpenFileDialog1.FilterIndex = 1   If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then path = OpenFileDialog1.FileName End If Next

---

le code qui extrait les données est le suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Code Visual Basic :   Dim XmlDoc As XmlDocument = New XmlDocument() XmlDoc.Load(path)   Dim noeud, noeudEnf As XmlNode   Dim element As XmlNodeList   element = XmlDoc.DocumentElement.GetElementsByTagName("Esri")   Dim a, b As String     For Each noeud In element For Each noeudEnf In noeud.ChildNodes If noeudEnf.LocalName = "CreaDate" Then a = noeudEnf.InnerText   Else If (noeudEnf.LocalName = "SyncOnce") Then b = noeudEnf.InnerText End If End If     Next   Next 'MsgBox(b & " à " & a) ListBox1.Items.Add(a) ListBox2.Items.Add(b)

---

C'est Résolu ! voila le code j'espère que ça servira a qlq'un !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

private function extraitdonnees(path as string) as string() Dim XmlDoc As XmlDocument = New XmlDocument() XmlDoc.Load(path)   Dim noeud, noeudEnf As XmlNode   Dim element As XmlNodeList   element = XmlDoc.DocumentElement.GetElementsByTagName("Esri")   Dim a, b As String     For Each noeud In element For Each noeudEnf In noeud.ChildNodes If noeudEnf.LocalName = "CreaDate" Then a = noeudEnf.InnerText   Else If (noeudEnf.LocalName = "SyncOnce") Then b = noeudEnf.InnerText End If End If     Next   Next   return new string() {a,b} end function

---

Code:

---

1 2 3 4 5 6 7 8

for each fichier as io.fileinfo in new io.directoryinfo(path).getfiles("*.xml")   Dim path As String = folderbrowserdialgo1.SelectedPath dim data() as string = extraitdonnees(fichier.fullname) listbox1.items.add(a) listbox2.items.add(b) next

---

pour parcourir essayez ça

Code:

---

1 2 3 4 5 6 7

for each fichier as io.fileinfo in new io.directoryinfo(path).getfiles("*.xml",IO.SearchOption.AllDirectories) Dim path As String = folderbrowserdialgo1.SelectedPath dim data() as string = extraitdonnees(fichier.fullname) listbox1.items.add(a) listbox2.items.add(b) next

---