Discussion :

[Teddy67]

Bonjour à tous, j'ai besoin d'un petit coup de pouce :

Je cherche à enregistrer le contenu d'une ListBox vers un fichier.txt en indiquant le chemin d'enregistrement.

Le code j'ai choisi de passer par "System.IO.File.WriteAllText()"

Voici le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
        Dim save_dir As New SaveFileDialog()
        save_dir.Filter = "Fichier Texte (*.txt) |*.txt"
        save_dir.FileName = ""
        save_dir.Title = "Choisir le dossier de recherche :"
        save_dir.ShowDialog()  
 
        Dim save_txt As String
        save_txt = save_dir.FileName 
 
        If save_dir.ShowDialog = DialogResult.OK Then 
            Dim sb As New System.Text.StringBuilder() 
 
            For Each o As Object In ListBox1.Items 
                sb.AppendLine(o) 
 
            Next   
 
            System.IO.File.WriteAllText(save_txt, sb.ToString())   
 
        End If 
    End Sub

Mais j'ai un crash sur System.IO.File.WriteAllText(..)

Deux questions :

Pourquoi il crash ?
Pourriez vous me montrer la bonne méthode à suivre ?

Merci par avance.

[r.morel]

Salut,
Tu dois utiliser la classe StreamWriter.
Regarde ans la FAQ, tu trouveras un exemple : https://dotnet.developpez.com/faq/vbnet/?page=Fichiers#Comment-lire-et-ecrire-dans-un-fichier-texte

[Teddy67]

Merci r.morel

voici se que j'ai fait, si ca peu aider quelqu'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
 
        Dim xSave As New SaveFileDialog
        Dim i As Integer
 
        xSave.Title = "Chemin d'enregistrement du fichier *.txt"
        xSave.FileName = ""
        xSave.Filter = "Doc.txt(*.txt)|*.txt"
 
        If xSave.ShowDialog = DialogResult.OK Then
 
            Dim var1 As New IO.StreamWriter(xSave.FileName, True)
 
            For i = 0 To ListBox1.Items.Count - 1
                var1.WriteLine(ListBox1.Items.Item(i))
 
            Next
 
            var1.Close()
 
        End If
    End Sub

Voila et ca tourne bien.

Merci encore