Beug dans un code pour une mise à jour
Bonjour, j'ai fait un système de mise à jour:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Computer.Network.DownloadFile("http://zune.franceserv.com/telechargement/bin/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\version.txt")
Dim internet As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\version.txt")
Dim web = internet.ReadLine
internet.Close()
Dim localnow As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\bin\version.txt")
Dim local = localnow.ReadLine
localnow.Close()
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\version.txt")
If web > local Then
MsgBox("Une mise à jour a été détectée!" & vbNewLine & "Elle va être téléchargée", MsgBoxStyle.Information)
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\bin\updater.exe")
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\bin\version.txt")
My.Computer.Network.DownloadFile("http://zune.franceserv.com/telechargement/bin/version.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Zune\bin\version.txt")
Me.Close()
End If
End Sub |
Mais une chose qui me parait étrange se produit. Il détecte la mise à jour et affiche la msgbox mais il n'effectue pas la suite du if. J'ai pu m'en apercevoir car le fichier updater.exe n'existe pas et il ne renvoie pas de message d'erreur ; et la fenêtre ne se ferme pas alors que j'ai mis "me.close".
Auriez-vous une explication?
PS: j'ai fait des points d'arrêt sur le process.start mais après celui-ci pas moyen de passer au point d'arrêt suivant.