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 chemin_fichier As String = ""
Dim SFD1 As New SaveFileDialog()
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()
Try
If reponse = DialogResult.Cancel Then
' Else : File.WriteAllText(SFD1.FileName, TextBox1.Text, System.Text.Encoding.Default)
Else : File.WriteAllText(SFD1.FileName, ListView1.Items.ToString, System.Text.Encoding.Default)
'mon probleme est la listview.items.tostring ??
' File.WriteAllLines(SFD1.FileName, TextBox1.Text, System.Text.Encoding.Default)
chemin_fichier = SFD1.FileName
End If
End Try
End Sub
Private Sub EnregistrerSousToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnregistrerSousToolStripMenuItem.Click
SaveText()
End Sub |
Partager