Bonjour à tous,

j'essaye de créer un fichier xml de manière récursive. ca devrait donner quelque chose du genre:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public function xmlRecursion(ByVal i as integer) as xmldocument
  Dim res as xmldocument
  Dim xmlAtt As XmlAttribute
  Dim node, cnode As XmlElement
 
  Dim dec As XmlDeclaration = res.CreateXmlDeclaration("1.0", Nothing, Nothing)
  res.AppendChild(dec)
 
  cnode = res.CreateElement("Recursion")
  xmlAtt = res.CreateAttribute("level")
  xmlAtt.Value = i
  cnode.attributes.append(xmlAtt)
  res.AppendChild(cnode)
 
  If i>1 then
    node = xmlRecursion(i-1).DocumentElement
    node = res.OwnerDocument.ImportNode(node, True)
    cnode.AppendChild(node)
  End if
 
  Return res
End function
Ce code ne fonctionne pas, quelqu'un pourrait me filer un coup de main plz.

Merci d'avance