NICHT im Installationsverzeichnis.
Sonst gibt es Probleme unter Windows Vista, 7 und 8, wenn der Endanwender die Datei im "Programme"-Verzeichnis hat.
Ich empfehle AppData:
Speichern:
IO.File.WriteAllText(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "info.conf.launcher"), "ServerIP=127.0.0.1" & VbCrLf & "Nickname=Max.Mustermann" & VbCrLf & "GTAPath=C:\Programme\Grand Theft Auto San Andreas")Auslesen, Zeile für Zeile:
Oben die Strings deklarieren / definieren:
Dim ServerIP As String = Nothing
Dim Nickname As String = Nothing
Dim GTAPath As String = Nothing
Wichtig: Ganz oben unter "Public Class <Form-Name>" schreiben, nicht ins Load-Event, oder so.
Das hier ins Load-Event, oder wo auch immer:
For Each Line As String In IO.File.ReadAllLines(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "info.conf.launcher"))
Dim Data() As String = Line.Split("")
If(Data(0).StartsWith("ServerIP")) Then
ServerIP = Data(0).Remove(0, "ServerIP=".Length)
Else If(Data(0).StartsWith("Nickname")) Then
Nickname = Data(0).Remove(0, "Nickname=".Length)
Else If(Data(0).StartsWith("GTAPath")) Then
GTAPath = Data(0).Remove(0, "GTAPath=".Length)
End If
NextViel Spaß; Der Code sollte wunderbar klappen - Bei mir klappt er! 
Fabi: vllt postest du mal die Fehler, dann kann man dir auch helfen und du bekommst bessere Antworten als die von DaWallner.
Qualitätspost ... 
|
|
|
v
Fabi.StaR: Welche Fehler bekommst du denn?
Schreib uns die Fehler (im Notfall mit Screenshot) und poste ggf. den gesamten Code.
Hir:
Imports System.IO
Public Class Oprionen1
Dim ServerIP As String = Nothing
Dim Nickname As String = Nothing
Dim GTAPath As String = Nothing
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FolderBrowserDialog1.ShowDialog()
Dim Pfad As String
Pfad = FolderBrowserDialog1.SelectedPath
TextBox3.Text = Pfad
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
IO.File.WriteAllText(IO.Path.Combine(Environment.GetFolderPath(Application.StartupPath
), "info.conf"), "[AC]" & "ServerIP=" & ServerIP & vbCrLf & "Nickname=" & Nickname & vbCrLf & "GTAPath=" & GTAPath)
Me.Close()
End Sub
Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
TextBox3.ReadOnly = True
End Sub
Private Sub Oprionen1_Load(sender As Object, e As EventArgs) Handles Me.Load
For Each Line As String In IO.File.ReadAllLines(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "info.conf.launcher"))
Dim Data() As String = Line.Split("")
If (Data(0).StartsWith("ServerIP")) Then
ServerIP = Data(0).Remove(0, "ServerIP=".Length)
ElseIf (Data(0).StartsWith("Nickname")) Then
Nickname = Data(0).Remove(0, "Nickname=".Length)
ElseIf (Data(0).StartsWith("GTAPath")) Then
GTAPath = Data(0).Remove(0, "GTAPath=".Length)
End If
Next
End Sub
End ClassKommt das:
ZitatUngültige Konvertierung von der Zeichenfolge C:\Users\Fabian\Documents\Visual in Typ Integer.
Application.StartupPath "C:\Users\Fabian\Documents\Visual Studio 2012\Projects\Ciry-od-Roleplay Launcher\Ciry-od-Roleplay Launcher\bin\Debug" String
Hast du dir meinen Text überhaupt durchgelesen? ...
Die Konfigurationsdatei NICHT im Anwendungsverzeichnis speichern...
Übernimm den Code, den ich genommen habe, 1:1.
Übrigens ist das "[AC]" auch unnötig, weil es sich hier nicht um eine INI-Datei handelt - Und als Argument, "der Professionalität halber", das "[AC]" reinzuknallen, ist unprofessionell, lol.
Also: Code 1:1 übernehmen, und nicht irgendwas reinklatschen.
Des Weiteren, wieso nennst du deine Form "Oprionen1"? lol
Ich habs doch extra geschrieben...
Weil es dann Zugriffsverweigerungen unter Windows Vista und 7 beim Schreiben der Datei gibt, wenn sich dein Programm in "geschützten" Pfaden befindet, die Schreibberechtigungen als Administrator benötigen.
Zudem ist AppData ("%appdata%") eigentlich der "Standard"-Pfad für Anwendungskonfigurationen.
Nachdenken... 
Du musst die Datei auch erstmal erstellen, bevor du sie verwenden (auslesen) kannst.
Ersetze dein
Private Sub Oprionen1_Load(sender As Object, e As EventArgs) Handles Me.Load
For Each Line As String In IO.File.ReadAllLines(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "info.conf.launcher"))
Dim Data() As String = Line.Split("")
If (Data(0).StartsWith("ServerIP")) Then
ServerIP = Data(0).Remove(0, "ServerIP=".Length)
ElseIf (Data(0).StartsWith("Nickname")) Then
Nickname = Data(0).Remove(0, "Nickname=".Length)
ElseIf (Data(0).StartsWith("GTAPath")) Then
GTAPath = Data(0).Remove(0, "GTAPath=".Length)
End If
Next
End Subdurch
Private Sub Oprionen1_Load(sender As Object, e As EventArgs) Handles Me.Load
If(IO.File.Exists(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "info.conf.launcher"))) Then
For Each Line As String In IO.File.ReadAllLines(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "info.conf.launcher"))
Dim Data() As String = Line.Split("")
If (Data(0).StartsWith("ServerIP")) Then
ServerIP = Data(0).Remove(0, "ServerIP=".Length)
ElseIf (Data(0).StartsWith("Nickname")) Then
Nickname = Data(0).Remove(0, "Nickname=".Length)
ElseIf (Data(0).StartsWith("GTAPath")) Then
GTAPath = Data(0).Remove(0, "GTAPath=".Length)
End If
Next
End If
End SubUnd was soll ich jetzt machen? Auf dem Screenshot ist nichts außer "Der Objektverweis wurde [...]"...
Wie heißt es nochmal so schön? Ach ja: Ich habe meine Kristallkugel verloren, näääh? :3
Übrigens brauchst du mich auch nicht per PN benachrichtigen, wenn du eine Antwort verfasst hast, wenn ich online bin, dann antworte ich, wenn ich es will, und nicht, wann du es willst.. <.<
