Sujet Précédent Sujet Suivant

Des erreurs dans mon code visual basic 2010 une aide svp

Fermé
arauwin - 9 juin 2013 à 03:28
arauwin Messages postés 1 Date d'inscription dimanche 9 juin 2013 Statut Membre Dernière intervention 9 juin 2013 - 9 juin 2013 à 03:31
Bon voila j'ai créer un logiciel en visual basic mais quand j'exécute mon bouton des fois quand le dossier existe il me fait erreur ou quand le dossier existe pas aussi je voulais savoir comment corriger si vous connaiser voici mon code expliquer ou il y a mes erreurs svp 

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Timer1.Start()


        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Version") = False Then
            My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft")
            My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft")  
            My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods")
            My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\texturepacks")
            My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\texturepacks-mp-cache")


            If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\NoyalKubVersion.txt") = True Then
                MsgBox("Une version de minecraft existe déja dans \.dalton-craft elle cera Remplacer !", MsgBoxStyle.Critical)
                My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\NoyalKubVersion.txt")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\md5s")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\lwjgl_util.jar")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\lwjgl.jar")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\jinput.jar")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\version")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\minecraft.jar")
                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\Dalton-Craft.exe")

                Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\servers.dat")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/NoyalKubVersion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\NoyalKubVersion.txt")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/version", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\version")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\minecraft.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/Dalton-Craft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\Dalton-Craft.exe")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/md5s", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\md5s")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/lwjgl_util.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\lwjgl_util.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/lwjgl.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\lwjgl.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/jinput.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\jinput.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/servers.dat", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\servers.dat")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/servers.dat", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\servers.dat")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/[1.5.2] Botany.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\[1.5.2] Botany.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/1.5.2 DamageIndicators v2.7.0.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\1.5.2 DamageIndicators v2.7.0.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/BiblioCraft[v1.2.0].zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\BiblioCraft[v1.2.0].zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/ChatBubbles152_5049714.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\ChatBubbles152_5049714.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/dragonmount_v0.99.2_mc1.5.1.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\dragonmount_v0.99.2_mc1.5.1.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/Lanterns 1.3 Universal.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\Lanterns 1.3 Universal.zip")

            ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\NoyalKubVersion.txt") = False Then
                MsgBox("Avez vous pensé à fermer minecraft ? Veuillez attendre le message de confirmation de la mise à jour.", MsgBoxStyle.Exclamation)

                My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton.craft")


                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/NoyalKubVersion.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\NoyalKubVersion.txt")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/version", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\version")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\minecraft.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/Dalton-Craft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\Dalton-Craft.exe")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/md5s", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\md5s")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/lwjgl_util.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\lwjgl_util.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/lwjgl.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\lwjgl.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/Bin/jinput.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\bin\jinput.jar")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/servers.dat", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.dalton-craft\servers.dat")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/servers.dat", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\servers.dat")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/[1.5.2] Botany.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\[1.5.2] Botany.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/1.5.2 DamageIndicators v2.7.0.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\1.5.2 DamageIndicators v2.7.0.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/BiblioCraft[v1.2.0].zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\BiblioCraft[v1.2.0].zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/ChatBubbles152_5049714.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\ChatBubbles152_5049714.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/dragonmount_v0.99.2_mc1.5.1.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\dragonmount_v0.99.2_mc1.5.1.zip")
                My.Computer.Network.DownloadFile("http://www.quebec-dalton.ca/launcher/mods/Lanterns 1.3 Universal.zip", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\mods\Lanterns 1.3 Universal.zip")

            End If
            MsgBox("Mise à jour de Dalton-Craft terminé en 1.5.2 Avec mods et Forge Loader !", MsgBoxStyle.Information)

        ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Version") = True Then

            MsgBox("Une version de minecraft existe déja dans \.minecraft elle cera conserver !", MsgBoxStyle.Critical)

        End If











    End Sub
A voir également:

1 réponse

Réponse 1 / 1
arauwin Messages postés 1 Date d'inscription dimanche 9 juin 2013 Statut Membre Dernière intervention 9 juin 2013
Modifié par arauwin le 9/06/2013 à 03:33
Je veux savoir ou placer mes codes dans quelle section pour quand le fichier existe ou pas les commandes soi faite comme il faut et au bon moment
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses
Problème de décodeur TV Bouygues Telecom
Massi119 -
Turone37 -

188 réponses