1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Private Sub SaveText()
Dim reponse As DialogResult
SFD1.FileName = "*.*"
SFD1.Filter = "Fichiers Text (*.txt)|*.txt|Fichier HTML (*.html)|*.html|Fichier HTM (*.htm)|*.htm|Fichiers CSV (*.CSV)|*.CSV"
reponse = SFD1.ShowDialog()
If reponse = DialogResult.Cancel Then
Else
Dim toto As StreamWriter = New StreamWriter(SFD1.FileName)
Dim liste As ListView.ListViewItemCollection = ListView1.Items
For Each ListViewItem In liste
Write(ListViewItem.SubItems(0).Text, "-")
Next
chemin_fichier = SFD1.FileName
End If
End Sub |
Partager