Hallo Leute!
Ich bin grade dabei eine kleine Anwendung zu schreiben. Diese Anwendung überprüft die aktuelle Version und falls eine neue verfügbar ist, wird diese heruntergeladen und die alte überschrieben. Allerdings habe ich das mit dem Überschreiben noch nicht hinbekommen und bitte daher hier um Hilfe.
Hatte erst versucht die Dateien zu löschen und dann zu downloaden, hat allerdings nicht funktioniert. Mit der SuFu habe ich mich auch schon eine Zeit befasst, hat aber nichts passendes ergeben.
Ich bin grade dabei eine kleine Anwendung zu schreiben. Diese Anwendung überprüft die aktuelle Version und falls eine neue verfügbar ist, wird diese heruntergeladen und die alte überschrieben. Allerdings habe ich das mit dem Überschreiben noch nicht hinbekommen und bitte daher hier um Hilfe.
Hatte erst versucht die Dateien zu löschen und dann zu downloaden, hat allerdings nicht funktioniert. Mit der SuFu habe ich mich auch schon eine Zeit befasst, hat aber nichts passendes ergeben.
VB.NET-Quellcode
- If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\version.txt") Then ' Prüfen ob Datei vorhanden ist
- My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\version.txt") ' Wenn ja löschen
- End If
- My.Computer.Network.DownloadFile("http://www.domain.de/version.txt", Environment.GetFolderPath(My.Application.Info.DirectoryPath) & "\version.txt") ' Datei Neu Downloaden - Hier den Link zu der version.txt
- Dim Stream As New IO.StreamReader(Environment.GetFolderPath(My.Application.Info.DirectoryPath) & "\version.txt") ' Auslesen
- Dim z1 As String = Stream.ReadLine ' Inhalt der ersten Zeile wird in "z1" gespeichert
- Dim z2 As String = Stream.ReadLine ' Inhalt der zweiten Zeile wird in "z1" gespeichert
- Dim z3 As String = Stream.ReadLine ' Inhalt der zweiten Zeile wird in "z1" gespeichert
- Stream.Close()
- Form1.Label3.Text = z1
- Dim lblt As Integer = Form1.Label3.Text
- If lblt < z1 Then ' Wenn Label3.Text kleiner ist als "z1" dann
- My.Computer.Network.DownloadFile(z2, My.Application.Info.DirectoryPath & "\Datei" + "" + ".exe") ' Neue .dll in den Programm Ordner laden (Downloadlink in "z2")
- My.Computer.Network.DownloadFile(z3, My.Application.Info.DirectoryPath & "\Datei" + "" + ".dll") ' Neue .exe in den Programm Ordner laden (Downloadlink in "z3")
- MsgBox("Update wurde fertiggestellt..", MsgBoxStyle.Information, "Updater") ' Nachricht wenn download erfollgreich war
- Else
- MsgBox("Kein Update gefunden!", MsgBoxStyle.Information, "Updater") ' Nachricht wenn keine Updates vorhanden sind
- End If
- Me.Close() ' Schliessen
- End Sub
- End Class