Atributos em XML no VB6

[Jair Humberto 2]

Galera, como criar um atributo de xml no VB6?

 

tenho o seguinte código:

 

Dim XML As New DOMDocument60
	Dim root As IXMLDOMElement
	Dim nó As IXMLDOMNode

	
	XML.resolveExternals = True
	XML.validateOnParse = True
	XML.async = False

	Call XML.loadXML("<?xml version='1.0' encoding='UTF-8' ?><principal></principal>")

	Set root = XML.documentElement

	Set nó = XML.createNode(NODE_ELEMENT, "outraTag", "")
	root.appendChild nó

	XML.save("meuarquivo.xml")

Aqui, acabei de criar um XML. Agora estou totalmente perdido quanto aos atributos, eu precisava criar atributos. Pensei que fosse assim:

 

Dim XML As New DOMDocument60
	Dim root As IXMLDOMElement
	Dim nó As IXMLDOMNode
	Dim atributoNó As IXMLDOMAttribute 'um objeto IXMLDOMAttribute

	
	XML.resolveExternals = True
	XML.validateOnParse = True
	XML.async = False

	Call XML.loadXML("<?xml version='1.0' encoding='UTF-8' ?><principal></principal>")

	Set root = XML.documentElement

	Set nó = XML.createNode(NODE_ELEMENT, "outraTag", "")

			'pensei algo como esse código abaixo

	Set atributoNó = XML.createAttribute("Id")

	'o problema é agora adicionar o atributo ao nó
	'nó.appendChild atributoNó, porém não é isso
	'ainda pensei que fosse algo como nó.createAttribute,porém esse método não
	'existe para esse objeto. E ainda tentei algo como nó.id, como ocorre no Javascript,
	'porém também não é isso. Pensei em criar o Atributo com createAttribute e depois,
	'tentar adicionar ele atraves de nó.id porém também não é isso

	root.appendChild nó

	XML.save("meuarquivo.xml")

alguém sabe algo sobre isso?

desde já agradeço

[Claudio Neto 3]

Você quer criar um atributo ou um nó dentro do outro nó?

 

Se for um atributo, no outro tópico que te respondi não serve?