Bonjour, j'ai fait un système de mise à jour:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.