Crear XML

[extrem_bcn]

Hay alguna manera de crear un documento XML con VB 6 ? Todo lo que veo por internet es para .Net

Lo agradeceria mucho.

[seba123neo]

Hola,pues mira basicamente se puede crear con una libreria llamada Microsoft XML version x.xx,tambien con esta libreria se puede leer los mismos,y bueno algo asi seria:

Código:

Private Sub Command1_Click()
Dim oDom As New MSXML2.DOMDocument30
Dim oElement As MSXML2.IXMLDOMElement
Dim oNode As MSXML2.IXMLDOMNode
Dim oNodeList As MSXML2.IXMLDOMNodeList
With oDom
Set oNode = .appendChild(.createElement("cliente"))
Set oNode = oNode.appendChild(.createElement("nombre"))
oNode.Text = "sebastian"
End With
oDom.save "c:\ejemplo.xml"
Set oNodeList = oDom.selectNodes("//cliente")
Set oNode = oDom.selectSingleNode("/nombre/cliente")
Set oDom = Nothing
Set oNodeList = Nothing
Set oNode = Nothing
End Sub

saludos.

[extrem_bcn]

muchas gracias seba por responder, pero no he logrado hacer lo que quiero (está claro que no se como hacerlo)

He de hacer un archivo XML con esta estructura:

Código:

 xml xmlns:s="uuid:""
	xmlns:dt="uuid:""
	xmlns:rs="urn:schemas-microsoft-com:rowset"
	xmlns:z="#RowsetSchema">
<s:Schema id="RowsetSchema">
	<s:ElementType name="row" content="eltOnly" rs:updatable="true">
		<s:AttributeType name="Proceso">
			<s:datatype dt:type="uuid" dt:maxLength="16"/>
		</s:AttributeType>
		<s:AttributeType name="MovPosicion">
			<s:datatype dt:type="uuid" dt:maxLength="16"/>
		</s:AttributeType>
		<s:extends type="rs:rowbase"/>
	<s:ElementType>
</s:Schema>

Alguna ... ayuda o alguna guia de como hacerlo?

gracias!