Manipulação de arquivo XML usando VB.Net

Manipulação de arquivo XML usando VB.Net

1) Ler o arquivo

O nome do arquivo é "Configuracao.xml" , ele será lido do disco e colocado em um DataGridViw chamado dtgEmail no evento Click do Botão btnLerArquivo.

Arquivo configuracao.xml:
   
   
       
         usuario1@dominio.com
       
       
          usuario1@dominio.com
       
       
          usuario1@dominio.com
       
       
          usuario1@dominio.com
       
       
          usuario1@dominio.com
       
       
          usuario1@dominio.com
       
       
          usuario1@dominio.com
       
   

Private Sub btnLerArquivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLerArquivo.Click

    Dim ds As New DataSet
    ds.ReadXml("Configuracao.xml")
    dtgEmail.DataSource = ds.Tables(0)
    dtgEmail.AutoResizeColumns()
  End Sub

 

2) Gravar o arquivo:

O arquivo será gravado através do evenco Click do botão btnGravar.
Private Sub btnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGravar.Click
    Dim i As Integer
    Dim sAux(0) As String
    Dim ds As New DataSet
    Dim dt As New DataTable("copia")
    Dim dr As DataRow

    dt.Columns.Add("email")

    'Apaga o arquivo de entrada se ele existir
    If System.IO.File.Exists("Configuracao.xml") Then
      System.IO.File.Delete("Configuracao.xml")
    End If

    'Percorre todo o grid

    For i = 0 To dtgEmail.Rows.Count - 2
      If dtgEmail.Rows(i).Cells(0).Value.ToString <> "" Then
        dr = dt.NewRow
        sAux(0) = dtgEmail.Rows(i).Cells(0).Value.ToString
        dt.Rows.Add(sAux)
      End If
    Next
    ds.Tables.Add(dt)
    ds.WriteXml("Configuracao.xml")
    Me.Close()
  End Sub