XML et VB6

Question

Bonjour, 

Je dois récupérer des informations dans un fichier XML. Sur ma machine de développement tout ce passe comme prévu.
Mais sur une autre machine, il n'arrive pas à ouvrir le fichier XML.

j'utilise msxml3.dll, mais avant j'utilisais msxml6.dll et j'avais le même problème...

Quelqu'un à t il une idée ? Peut on savoir pourquoi il ne peut pas charger le fichier? 
Évidement j'ai vérifier, et revérifier le chemin du fichier.

Voici le code source : 




Private Function GetNamebyNumViaXMLFile(XMLFile$, Num%, Name$) As Boolean
Dim oXMLDoc As MSXML2.IXMLDOMDocument
Dim oNoeudMembre As MSXML2.IXMLDOMElement
Dim oNoeud As MSXML2.IXMLDOMNode
Dim oListeNoeuds As MSXML2.IXMLDOMNodeList

    Set oXMLDoc = New MSXML2.DOMDocument
    If oXMLDoc.Load(XMLFile$) Then
        For Each oNoeudMembre In oXMLDoc.getElementsByTagName("donnée")
            If Not IsNull(oNoeudMembre.getAttribute("name")) Then
                Set oListeNoeuds = oNoeudMembre.childNodes
                For Each oNoeud In oListeNoeuds                    If (oNoeud.nodeName "Surname") And (oNoeud.Text Trim$(Str$(Num%))) Then
                        Name$ = oNoeudMembre.getAttribute("name")
                        GetNamebyNumViaXMLFile = True
                    End If
                Next
            End If
            If GetNamebyNumViaXMLFile = True Then Exit For
        Next
    Else
            DrvView.DisplayEvent "Can't load " & XMLFile$
    End If
End Function

systemsb · Answer

Merci 

Je viens de trouver...
J'ai ajouté l'affichage de oXMLDoc.parseError.reason et j'ai eu la raison de la non ouverture....j'avais un doublon !!!
J'ai encore pas mal de chose à apprendre sur le XML ...

XML et VB6

1 réponse

Votre réponse

Discussions similaires