Code pour mise à jour d'un fichier.

Messages postés
70
Date d'inscription
mercredi 6 novembre 2013
Statut
Membre
Dernière intervention
27 mai 2017
- - Dernière réponse : Krenian
Messages postés
70
Date d'inscription
mercredi 6 novembre 2013
Statut
Membre
Dernière intervention
27 mai 2017
- 12 févr. 2016 à 23:05
Bonjour,
j'ai trouvé puis modifié un code pour mettre à jour un logiciel par un bouton.
Cependant, étant donné que je suis débutant, je pense avoir oublié quelque chose. Merci de votre aide. Voici le code :
Sub CheckForUpdate()

Dim file As String = Application.StartupPath & "/Version.txt"
Dim MyVer As String = My.Application.Info.Version.ToString
If My.Computer.FileSystem.FileExists(file) Then
My.Computer.FileSystem.DeleteFile(file)
End If

Try
My.Computer.Network.DownloadFile("https://www.dropbox.com/s/xxxxx/Version.txt?dl=1", file)
Catch ex As Exception
MsgBox(ex.Message + " Ne peut pas vérifier les mise à jour.")
End Try
Dim LastVer As String = My.Computer.FileSystem.ReadAllText(file)
If MyVer < LastVer Then
MsgBox("Update Available")

Try
My.Computer.Network.DownloadFile("https://www.dropbox.com/s/xxxxxxxxxxxx/Setup.exe.lnk?dl=1", Application.StartupPath + "/setup.exe")
Catch ex As Exception
MsgBox(ex.Message + " Problème lors du téléchargement.")
End Try
Process.Start(Application.StartupPath + "/setup.exe")
Else
MsgBox("Programme est à jour")
End If
End Sub
Afficher la suite 

2 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
209
0
Merci
Bonjour,
1) je déplace cette discussion vers le sous-forum (VB.Net) où elle aurait dû être ouverte.
Veux-tu bien s'il te plait veiller à prendre ce soin toi-même ?
2) tu montres une procédure. Mais par quoi la lances-tu donc ? (car elle ne risque pas de se lancer "spontanément" puisque non évènementielle !)

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Commenter la réponse de ucfoutu
Messages postés
1886
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
15 juin 2019
60
0
Merci
Bonjour
Je te déconseille fermement de mettre à jour un logiciel sans avoir désinstallé l'ancienne version .
De plus un tel programme est-il vraiment nécessaire car tu ne fais que chercher une mise à jour sur le Net et l'installer !
Son utilité serait plus un indicateur si un logiciel possède une mise à jour !
Krenian
Messages postés
70
Date d'inscription
mercredi 6 novembre 2013
Statut
Membre
Dernière intervention
27 mai 2017
> Whismeril
Messages postés
13401
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 juin 2019
-
Comment faire pour que, comme dit plus haut, " de mettre à jour un logiciel sans avoir désinstallé l'ancienne version" ?
Whismeril
Messages postés
13401
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 juin 2019
279 -
J'ai lu le code un peu vite, ta procédure supprime le fichier ou est inscrite la version, et ensuite essaye de le lire, ça ne peut pas marcher.....


    Dim file As String = Application.StartupPath & "/Version.txt"
    Dim MyVer As String = My.Application.Info.Version.ToString
    If My.Computer.FileSystem.FileExists(file) Then
        My.Computer.FileSystem.DeleteFile(file)'suppression du fichier
    End If

...

    Dim LastVer As String = My.Computer.FileSystem.ReadAllText(file)'lecture du fichier supprimé

            
Krenian
Messages postés
70
Date d'inscription
mercredi 6 novembre 2013
Statut
Membre
Dernière intervention
27 mai 2017
> Whismeril
Messages postés
13401
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 juin 2019
-
Tu connais un code pour le style de mise à jour que je recherche ?
En fait je fais ça pour un jeu.
Whismeril
Messages postés
13401
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 juin 2019
279 -
Non, et tout bon éditeur de jeu l'a fait avant toi.
Krenian
Messages postés
70
Date d'inscription
mercredi 6 novembre 2013
Statut
Membre
Dernière intervention
27 mai 2017
> Whismeril
Messages postés
13401
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
16 juin 2019
-
Merci du soutien ;D
Commenter la réponse de vb95