Public Class Form1
 
Dim sDatei As String = Nothing
 
Private Sub btnDateiLesen_Click(sender As Object, e As EventArgs) Handles _
  btnDateiLesen.Click
 
sDatei = ""
 
Dim ofd As New OpenFileDialog
With ofd
 .InitialDirectory = "d:\"
 .Filter = "m3u files (*.m3u|*.m3u"
 .Multiselect = False
End With
 
Dim dres As DialogResult = ofd.ShowDialog
 
If dres <> DialogResult.OK Or ofd.FileName = "" Then
 Exit Sub
End If
 
sDatei = ofd.FileName
 
TextBox1.Text = System.IO.File.ReadAllText(sDatei)
 
End Sub
 
Private Sub btnDateiSchreiben_Click(sender As Object, e As EventArgs) Handles _
  btnDateiSchreiben.Click
 
System.IO.File.WriteAllText(sDatei, TextBox1.Text)
 
End Sub
 
End Class

EALA FREYA FRESENA