Boa tarde, preciso de ajuda para adicionar linhas a um arquivo xml
Criação do xml
Dim LISTA As New ListBox Private Sub Gerarxml() LISTA.Items.Add("<?xml version=" & """" & "1.0" & """" & "?>")
LISTA.Items.Add("<cliente>" & txtnome.text & "</cliente>") LISTA.Items.Add("<cpf>" & txtnome.text & "</cpf>") LISTA.Items.Add("<!-- Data criação:" & Date.Today & "-->") End Sub
Salvar arquivo
Private Sub SalvarXML() Dim arq As New IO.StreamWriter("C:\XML\ArqXML.xml, True) For i As Integer = 0 To LISTA.Items.Count - 1 arq.WriteLine(LISTA.Items(i).ToString()) Next arq.Close() MsgBox("Salvo com sucesso!", MsgBoxStyle.Information, Title:="XML") Me.Close() End Sub
O problema começa ai, se por exemplo eu quiser adicionar mais uma tag depois que o arquivo foi salvo ele salva a nova linha no mesmo arquivo só que a nova tag fica fora da tag pai.
Obs: fiz esse rascunho só pra mostrar e não adicionei a tag pai