lire un xml avec vbs

Bonjour,

J'ai de gros probleme pour recuperer les données dans un fichier xml.
Voila mon code :

Option Explicit

Dim xmlDoc : Set xmlDoc = CreateObject("Microsoft.XMLDOM")

If xmlDoc.load("C:\Projet\P_Backup\FichierDefinition.xml") Then
   WScript.Echo "Le document a été chargé avec succès."
   wscript.Echo "xmlDoc.attributes = " & xmlDoc.nodename
   Dim x 
 
   For x = 0 To x = xmlDoc.nodeType 
 
      WScript.Echo xmlDoc.nodeName

    next
 
Else
  WScript.Echo "Impossible de charger le document"
  
End If

Mon fichier XML :

<?xml version="1.0" encoding="ISO-8859-1"?>
<Sauvegarde>
 <Source>C:\W1\</Source>
 <Cible>C:\TEST\</Cible>
 <Option>True</Option>
</Sauvegarde>

Elpiojo

Tu peux pas utiliser :
   Set xmlDoc = new Microsoft.XMLDOM
au lieu de :
   Set xmlDoc = CreateObject("Microsoft.XMLDOM")

quand a :
   For x = 0 To x = xmlDoc.nodeType
tu devrait pas plutot écrire :
   For x = 0 To xmlDoc.nodeType

 

ok merci, je ne vais pas te demander de faire mon programme, si tu connais un doc traitant de vbs & xml de preference en français. Je sais qu'il n'y a pas grand chose en francais mais j'aurais esayé!
Encore merci, tu m'as permis de debloquer le debut de mon code.

Elpiojo

alors là... le xml est obscur pour moi... mais je vais chercher de la doc, ça m'interraisserait de pouvroir lire les xml.