Xml insérer dans un noeud spécifique

Bonjour, je suis nouveau dans le xml et également sur le forum. Et je suis actuellement face à un problème.

L'application a pour but de recenser tout les dossiers et fichiers d'un chemin choisi et d'en liste les Dossier et Fichier.

Voici la structure de mon XML:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
<DOSSIER>
 
    <NOM>    </NOM>
    <PATH>    </PATH>
 
     <FICHIER>
 
        <NOM>    </NOM>
        <URL>     </URL>
        <DATEMODIF>      </DATEMODIF>
        <EXTENSION>       </EXTENSION>
 
     </FICHIER>
 
</DOSSIER>

Et dans la condition ci-dessous, je créer mon nouveau fichier avec les informations corespondant, mais je n'arrive pas à ajouter elemFichier au noeud actuel.( Quand je fait noeud.appendChild, l'ajout est fait mais pas à l'endroit voulût :cry:)

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
 
   For Each noeud In element
 
                                For Each noeudEnf In noeud.ChildNodes
                                    lienFichier = fichier
 
 
                     If Dossier = lienFichier  Then
 
 
                                        elemFichier = XmlDoc.CreateElement("FICHIER")
                                        elemNomFichier = XmlDoc.CreateElement("NOM")
                                        elemURLFichier = XmlDoc.CreateElement("URL")
                                        elemDateModifFichier = XmlDoc.CreateElement("DATEMODIF")
                                        elemExtensionFichier = XmlDoc.CreateElement("EXTENSION")
 
                                        elemURLFichier.InnerText = fichier
                                        elemDateModifFichier.InnerText = ...
                                        elemExtensionFichier.InnerText = ...
                                        elemNomFichier.InnerText = ...
 
                                        elemFichier.AppendChild(elemNomFichier)
                                        elemFichier.AppendChild(elemURLFichier)
                                        elemFichier.AppendChild(elemDateModifFichier)
                                        noeud.AppendChild(elemExtensionFichier)
 
                                    End If
 
                                Next
                            Next

Coordialement, merci de votre aide