J'aimerais lire un fichier texte et l'afficher dans un TextBox mais les accents et autres caractères spéciaux ne s'affichent pas.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim fs As FileStream
        Dim path As String = "C:\MonChemin\journal.txt"
        fs = File.OpenRead(path)
        Dim b(1024) As Byte
        Dim temp As UTF8Encoding = New UTF8Encoding(True)
        Dim text As String
 
        Do While fs.Read(b, 0, b.Length) > 0
            text += temp.GetString(b)
        Loop
        fs.Close()
 
        txt_journal.Text = text
Une idée ? Merci