VB.Net > Lire et ecrire dans un fichier txt

'*********
'Lire
'*********
Private Sub Lire()
        Dim sr As StreamReader = New StreamReader("chemin_du_fichier", System.Text.Encoding.Default)
        'met le contenu dans un richtextbox
        MonRichTextBox.Text = sr.ReadToEnd
        'Ferme le fichier
        sr.Close()
End Sub

'*********
'*** Ecrire
'*********
Private Sub Ecrire()
        ' 2eme parametre : indique si c'est un ajout
        Dim sw As StreamWriter = New StreamWriter("chemin_du_fichier", true, System.Text.Encoding.Default)
        'met le contenu dans le fichier
        sw.Write("chemin_du_fichier")
        'Ferme le fichier
        sw.Close()
End Sub