Hallo Ich habe folgendes geschrieben.Bekomme aber immer eine Fehler Meldung das er die Datei " playername.txt " Nicht finden kann das wollte ich eigentlich mit " On Error GoTo " umgehen. Hat jemand eine Idee? Wie bekomme ich die Fehlermeldung Ignoriert? Die Datei wird erst bei einem Button Klick Generiert.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objReader As New StreamReader(„Profile.dat“)
Dim line As String
Do While objReader.Peek() >= 0
line = objReader.ReadLine()
ComboBox1.Items.Add(line)
Loop
On Error GoTo NoProfile2
ComboBox1.Text = File.ReadAllText(„playername.txt“)
NoProfile2:
ComboBox1.Text = „Kein Profil ausgewählt“
On Error GoTo NoProfile
Dim txt As String = System.IO.File.ReadAllText(„playername.txt“)
TextBox3.Text = txt
Exit Sub
NoProfile:
TextBox3.Text = „Kein Profil ausgewählt“
End Sub