vorrei creare un file xml e ho trovato questo codice.
ma lo da in orizzontale l'elenco.
a me serve in verticale, ho provato a inserire sia vbcrlf e sia char(13) ecc...
ma mi da errore proprio la.
[QUOTEPrivate Sub Create_XML()

Dim objDom As DOMDocument
Dim obR As IXMLDOMElement
Dim obM1 As IXMLDOMElement
Dim obM1A As IXMLDOMAttribute
Dim obM2 As IXMLDOMElement
Dim obM3 As IXMLDOMElement

Set objDom = New DOMDocument
Set obR = objDom.createElement("corpo")
objDom.appendChild obR


Set obM1 = objDom.createElement("doc") & Chr(13) & Chr(10)
obR.appendChild obM1
Set obM1A = objDom.createAttribute("gruppo") & Chr(13) & Chr(10)
obM1A.nodeValue = "COD_SETTORE"
obM1.setAttributeNode obM1A
Set obM1A = objDom.createAttribute("Tipo_doc") & Chr(13) & Chr(10)
obM1A.nodeValue = "CINV"
obM1.setAttributeNode obM1A

Set obM2 = objDom.createElement("fornitore") & Chr(13) & Chr(10)
obM1.appendChild obM2

Set obM3 = objDom.createElement("codice") & Chr(13) & Chr(10)
obM2.appendChild obM3
obM3.Text = "CFFornitore"

objDom.save ("c:\file.xml")

End Sub
[/QUOTE]