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