exporter listview vers fichier txt

Bonjour,
Je voudrais exporter la listview dans 2 fichiers txt. Un fichier avec toutes les lignes qui ont un 1 dans la colonne 5 et l'autre fichier l'integral de la listview.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Dim build As New Text.StringBuilder()
        Dim nelement As Integer = liste.Items.Count
 
        For Each element As ListViewItem In liste.Items
            For i As Integer = 0 To liste.Columns.Count - 1
 
                If element.SubItems(5).Text <> "0" Then
                    MsgBox(element.SubItems(5).Text)
                    MsgBox("test1")
                Else
                    MsgBox("test2")
 
                End If
                build.Append(element.SubItems(i).Text)
                If (i < liste.Columns.Count - 1) Then
                    build.Append(";")
                End If
            Next
            build.Append(vbCrLf)
        Next