Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim writer As New XmlTextWriter("Facturas.xml", System.Text.Encoding.UTF8) writer.WriteStartDocument(True) writer.Formatting = Formatting.Indented writer.Indentation = 2 writer.WriteStartElement("factura") writer.WriteAttributeString("id", "comprobante") writer.WriteAttributeString("version", "1.0.0") writer.WriteStartElement("detAdicional") writer.WriteAttributeString("valor", "ATRIBUTO1") writer.WriteAttributeString("nombre", "DESCRIPCION1") writer.WriteEndElement() writer.WriteEndElement() writer.WriteEndDocument() writer.Flush() writer.Close() End Sub
Simplemente terminas con el elemento luego de escribir los atributos. Si el writer no ve nada más, lo cierra ahí mismo. Al menos, lo hace por defecto, no sé si pueda configurarse.
[W]