Des erreurs dans mon code visual basic 2010 une aide svp

arauwin -
arauwin Messages postés 1 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Des erreurs dans mon code visual basic 2010 une aide svp
Code ascii - Guide
Visual basic - Télécharger - Langages
Microsoft 365 basic - Accueil - Microsoft Office
Code puk bloqué - Guide
Visual c++ 2019 - Guide

1 réponse

Réponse 1 / 1

arauwin Messages postés 1 Date d'inscription Statut Membre Dernière intervention

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

Votre réponse