[RESOLVED] i always get an error trying to read a xml file why?

[salsa31]

hey
i found a code here that suppose to read some data from a xml file
but no matter what i do i get a error why?
the files are there

    Dim xmlDoc As DOMDocument
    Dim objNodeList As IXMLDOMNodeList
    Dim objProductNode As IXMLDOMNode
    Dim objQuantityNode As IXMLDOMNode
    Dim objNode As IXMLDOMNode
    Dim XMLurl As String
    Dim strRet As String

    Set xmlDoc = New DOMDocument
    XMLurl = "C:/GoogleSync/*.out"
    
    xmlDoc.async = False
    
    If xmlDoc.Load(XMLurl) = False Then
        MsgBox ("XML LOAD ERROR")
    Else
        Set objNodeList = xmlDoc.selectNodes("//Calender")
        For Each objNode In objNodeList
            Set objProductNode = objNode.selectSingleNode("EventID")
            strRet = "EventID = " & objProductNode.Text
                
            MsgBox strRet
        Next objNode
    End If

any help will be appreciated
salsa

[Arnoutdv]

Because you don't specify a filename, you pass a partial filename with a wildcard in it.

[salsa31]

Because you don't specify a filename, you pass a partial filename with a wildcard in it.

i did
this is the filename
GoogleSync
i want to collect all the xml that ends with .out

[Arnoutdv]

First collect all files using the Dir() function and then feed them one by one to the XML read routine

[salsa31]

First collect all files using the Dir() function and then feed them one by one to the XML read routine

can you show me how?

[Arnoutdv]

You live an copy and paste dont' you? :-P

Untested, typed in the Quick Reply window

Private Sub Form_Click()
    Dim sReturn As String
    Dim cFiles As Collection, lFile As Long, sFile As String


    Set cFiles = CollectFiles("C:\GoogleSync","*.out")
    For lFile = 1 To cFiles.Count
      sFile = cFiles(lFile)
      sReturn = sReturn & vbCrLf & YourXMLRoutine (sFile)
    Next lFile
End Sub

Private Function YourXMLRoutine(XMLurl As String) As String
    Dim xmlDoc As DOMDocument
    Dim objNodeList As IXMLDOMNodeList
    Dim objProductNode As IXMLDOMNode
    Dim objQuantityNode As IXMLDOMNode
    Dim objNode As IXMLDOMNode
    Dim strRet As String

    Set xmlDoc = New DOMDocument

    xmlDoc.async = False
    
    If xmlDoc.Load(XMLurl) = False Then
        MsgBox ("XML LOAD ERROR")
    Else
        Set objNodeList = xmlDoc.selectNodes("//Calender")
        For Each objNode In objNodeList
            Set objProductNode = objNode.selectSingleNode("EventID")
            YourXMLRoutine = YourXMLRoutine  & vbCrLf & "EventID = " & objProductNode.Text
        Next objNode
    End If
End Function

Private Function CollectFiles(sFolder As String, sFilter As String) As Collection
  Dim sFile As String
  
  Set CollectFiles = New Collection
  sFile = Dir$(sFolder & "\" & sFilter)
  Do While Len(sFile) > 0
    CollectFiles.Add sFolder & "\" & sFile
    sFile = Dir$
  Loop
End Function

[salsa31]

You live an copy and paste dont' you? :-P

Untested, typed in the Quick Reply window

Private Sub Form_Click()
    Dim sReturn As String
    Dim cFiles As Collection, lFile As Long, sFile As String


    Set cFiles = CollectFiles("C:\GoogleSync","*.out")
    For lFile = 1 To cFiles.Count
      sFile = cFiles(lFile)
      sReturn = sReturn & vbCrLf & YourXMLRoutine (sFile)
    Next lFile
End Sub

Private Function YourXMLRoutine(XMLurl As String) As String
    Dim xmlDoc As DOMDocument
    Dim objNodeList As IXMLDOMNodeList
    Dim objProductNode As IXMLDOMNode
    Dim objQuantityNode As IXMLDOMNode
    Dim objNode As IXMLDOMNode
    Dim strRet As String

    Set xmlDoc = New DOMDocument

    xmlDoc.async = False
    
    If xmlDoc.Load(XMLurl) = False Then
        MsgBox ("XML LOAD ERROR")
    Else
        Set objNodeList = xmlDoc.selectNodes("//Calender")
        For Each objNode In objNodeList
            Set objProductNode = objNode.selectSingleNode("EventID")
            YourXMLRoutine = YourXMLRoutine  & vbCrLf & "EventID = " & objProductNode.Text
        Next objNode
    End If
End Function

Private Function CollectFiles(sFolder As String, sFilter As String) As Collection
  Dim sFile As String
  
  Set CollectFiles = New Collection
  sFile = Dir$(sFolder & "\" & sFilter)
  Do While Len(sFile) > 0
    CollectFiles.Add sFolder & "\" & sFile
    sFile = Dir$
  Loop
End Function

WOW Genius!!!!!!!!!
tnk you very much

[salsa31]

tell me sir
if i want to read another thing from xml how do i do that?
this only return 1 thing the eventid

 YourXMLRoutine = YourXMLRoutine  & vbCrLf & "EventID = " & objProductNode.Text

i need to read another line called date
can you show me please how its done?

[Arnoutdv]

I never work with XML libraries, but have you tried to replace "EventID" by "Date"?

Can you paste the content of a XML file?

[salsa31]

I never work with XML libraries, but have you tried to replace "EventID" by "Date"?

Can you paste the content of a XML file?

well i found a way

           Set ObjNodeStart = objNode.selectSingleNode("Start")
            YourXMLRoutine = YourXMLRoutine & vbCrLf & "Start = " & ObjNodeStart.Text
            ObjStart = ObjNodeStart.Text

thank you amigo