Jag försöker lära mig grunderna i xml.
Varför denna kod funkar i debug mode men ej i run mode ?????
<code>
Private Sub Form_Load()
Dim objDoc As DOMDocument
Dim objNodeList As IXMLDOMNodeList
Dim objNode As IXMLDOMNode
Dim strXmlDoc As String, strNodeList As String
'strXmlDoc = "c:\CustomerData.xml" ' OK

strXmlDoc = "http://members01.chello.se/gasal/xml/CustomerData.xml" ' funkar bara i debug
strNodeList = "/customerdata/customer"
Set objDoc = CreateObject("MSXML2.DOMDocument")
objDoc.Load (strXmlDoc)
Set objNodeList = objDoc.selectNodes(strNodeList)
For Each objNode In objNodeList
List1.AddItem objNode.Text
Next
End Sub
</code>

/Ibbe

Såvitt jag vet kan du bara öppna lokalfiler så.
Titta på ett scriptexempel som åstakommer nåt liknande det du vill åt.
<code>
Function getXMLFromUrl( iURL )
'// Version 2.0
'// Hämtar data via HTTP.
'// Precondition: -
'// Parameter: iURL, adress till källan...
'// Postcondition: Returnerar det data från den angivna adressen.
'// Alternativt retunerar "<error/>" som felindikation.
Dim objXMLHTTP
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", iURL, False
objXMLHTTP.Send
'// Om data retunerats
If ( CInt(objXMLHTTP.status) = 200 ) then
'// Retunera data
getXMLFromUrl = objXMLHTTP.responseText
Else
'// Retunera felindikation
getXMLFromUrl = "<error/>"
End If
'//getXMLFromUrl = objXMLHTTP.responseXML
Set objXMLHTTP = Nothing
End Function
</code>

Tack för svaret, men varför funkar i debug mode????
/Ibbe

VB är inte min grej så jag vet inte, lr jo jag har mina aningar men bättre att låta nån kvalificerad få svara på det.

Tack!
/Ibbe