Des erreurs dans mon code visual basic 2010 une aide svp

arauwin -  
arauwin Messages postés 1 Statut Membre -
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 Statut Membre
 
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