Dim xmlDoc Dim currNode Set xmlDoc = CreateObject(\"microsoft.xmldom\") xmlDoc.async = False xmlDoc.load(\"c:\\books.xml\") Set currNode = xmlDoc.documentElement.firstChild If currNode.hasChildNodes Then MsgBox currNode.childNodes.length Else MsgBox (\"no child nodes\") End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.