Hallo,
Dein Kern-Problem ist Deine Copy'n Paste Programmierung, die Dich den Überblick gekostet haben dürfte.
Die Methode ReadAllText (ohne My.BlaBla) liest eine Textdatei ein und hat hier (und anderen Stellen) nichts zu suchen. Im Falle einer binären RAR Datei führt sie zu unerwünschten Verhalten,
sobald ein ungültiges Zeichen vorkommt.
Richtig wäre
Path.Combine, um einen Pfad aus mehreren Bestandteilen zusammenzusetzen.
Zudem würde ich Dir vorschlagen, einmal einige Eigenschaften einzufügen, um den Überblick wieder zu gewinnen, z. B.:
Public ReadOnly Property A3Directory As String
Get
Return Path.Combine(ApplicationPath, "directory.a3")
End Get
End Property
Public ReadOnly Property ApplicationPath As String
Get
Return Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "LauncherArma")
End Get
End Property
Public ReadOnly Property DocumentPath As String
Get
Return Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "LauncherArma")
End Get
End Property
(Wobei es nur eine Auswahl der auf den ersten Blick häufiger vorkommenden Varianten ist.)
Damit könnte das UnRar(....) Monster verkürzt werden zu:
UnRar(Path.Combine(A3Directory, "Addon.rar", Path.Combine(A3Directory , "LauncherArma"))
was die Zeile nicht nur richtiger, sondern deutlich freundlicher lesen lässt.
Das Gleiche wirst Du bei weiteren Stellen machen müssen, mindestens bei AddOn.Rar, denn dort kann es ebenso "scheppern" - die mit DownloadFile, Delete...
Aber wenn Du etwas Suchen und Ersetzen spielst, so kannst Du mit den drei Eigenschaften (und vielleicht noch einigen weiteren) den Code auf einen Bruchteil des jetzigen kürzen.
Womit sich andere Fehler in Zukunft leichter finden oder gar vermeiden lassen sollten.
Wenn Du das Ganze fortführst lassen sich weitere Stellen finden, wo die eine oder andere Hilfsmethode bzw. Eigenschaft den Code verkürzen und einfacher beherrschbar machen kann - wie die Dateivergleiche, Löschen, wenn... usw.
Gruß Elmar
