Dim files As FileStream = New FileStream(Application.StartupPath & "\Flussi Generati\FIle.txt", FileMode.OpenOrCreate, FileAccess.Write)
        files.Close()
        Dim id As ListViewItem
        Dim idCollection As ListView.CheckedListViewItemCollection = Me.ListView1.CheckedItems
        For Each id In idCollection
            If id.Checked = True Then

                Dim lettura As String = "select * from " + id.Text
                Connection.Open()
                Dim command As MySqlCommand = New MySqlCommand(lettura, Connection)
                Dim leggi As MySqlDataReader = command.ExecuteReader
                Dim listaRecord As New List(Of String)
                listaRecord.Add("[" + id.Text + "]")
                While leggi.Read
                    Dim record As String = (leggi(0).ToString + "|" + leggi(1).ToString)
                    If id.Text = "anagrafica" Then
                     'record = record + "|" + leggi(2).ToString + "|" + leggi(3).ToString + "|" + leggi(4).ToString + "|" + leggi(5).ToString + "|" + leggi(6).ToString
                    End If
                    If id.Text = "fatture" Then
                         'record = record + "|" + leggi(2).ToString + "|" + leggi(3).ToString + "|" + leggi(4).ToString + "|" + leggi(5).ToString + "|" + leggi(6).ToString
                    End If
                    If id.Text = "dettaglio_fatture" Then
                       'record = record + "|" + leggi(2).ToString + "|" + leggi(3).ToString + "|" + leggi(4).ToString + "|" + leggi(5).ToString + "|" + leggi(6).ToString
                    End If
                                      listaRecord.Add(record)
                End While
                'creazione e scrittura del file di testo
                Dim lista = IO.File.ReadAllLines(Application.StartupPath & "\Flussi Generati\FIle.txt").ToList()
                Dim index = lista.IndexOf("[" + id.Text + "]") + 1
                'è l'ultima righa
                If lista.Count = index Then
                    'accodo
                    lista.AddRange(listaRecord)
                Else
                    'inserisco
                    lista.InsertRange(index, listaRecord)
                End If
                IO.File.WriteAllLines(Application.StartupPath & "\Flussi Generati\FIle.txt", lista.ToArray())
                Connection.Close()
            End If
        Next