warum funzt das nicht?
VB.NET-Quellcode
- wc.DownloadFileAsync(New Uri("http://thechrisanders.bplaced.net/update/dber/version.txt"), My.Application.Info.DirectoryPath & "\serverversion.txt")
- ' My.Computer.Network.DownloadFile("http://thechrisanders.bplaced.net/update/dber/version.txt", My.Application.Info.DirectoryPath & "\serverversion.txt", "", "", False, 1000, True)
- Dim aktuelleversion = Application.StartupPath & "\version.txt"
- Dim serverversion = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\version.txt")
- If serverversion > aktuelleversion Then
- Dim infopanel As New InfoPanel.InfoPanel
- infopanel.Show("Neues Update verfügbar", "Es ist ein neues Update verfügbar, wenn Sie es installieren möchten dann klicken Sie auf Update!!" & vbNewLine & "Version: " & serverversion, Brushes.Aquamarine, True, InfoPanelBG.Matte, InfoPanelSpeed.SuperFast, Me)
- 'My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath & "\serverversion.ini")
- End If