[VB.Net]

Question

Bonjour,
Je créer en ce moment un luncher pour mon jeu,
et j'ai un probleme,


[L'endroit jaune vide, c'est une adresse web]

Sa ... Je ne trouve pas comment y remédié .
Toutes aides sont les bienvenues

Xeek · Answer

Oups, j'ai oublier mon code source ^^ 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Network.DownloadFile("http://yours-mt2.org/mamaj/patch.txt", destinationFileName:="/pack")
        Dim instance_saplogon As Form1 = New Form1
        Dim contenu = "/pack/patch.txt"
        Dim contenu2 As New String(" ", FileLen(contenu))
        FileOpen(1, contenu, OpenMode.Binary)
        FileGet(1, contenu)
        'FileClose()
        TextBox1.Text = contenu
    End Sub

Mayzz · Answer

Salut, 

Tu utilises des chemins web pour placer les fichiers sur ton disque. J'ai corrigé et commenté ton code.

Try
            'Adresse du fichier local (on peut le mettre ou on veut, par exemple c:\Windows\Temp\MonFichier.text)
            Dim LocalFile As String = "patch.txt"

            'Efface le fichier si existant
            If IO.File.Exists(LocalFile) Then
                IO.File.Delete(LocalFile)
            End If

            'Télécharge le fichier et le copie dans le répertoire courrant
            My.Computer.Network.DownloadFile("http://www.tonurl.com/fichier.ext", LocalFile)

            'Ouvre le fichier téléchargé sur le disque
            sr = New IO.StreamReader(New IO.FileStream(LocalFile, IO.FileMode.Open))

            'Place le contenu du fichier dans la variable Content
            Dim Content As String = sr.ReadToEnd()

            'Referme le fichier
            sr.Close()

            'Affiche le contenu
            TextBox1.Text = Content
            '
        Catch ex As Exception

            MessageBox.Show("Erreur : " & ex.Message)

        Finally

            'Referme le fichier si il a été ouvert avant l'erreur
            If sr IsNot Nothing Then
                sr.Close()
                sr.Dispose()
            End If

        End Try


Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

Adn56 · Answer

Avec biensûr un Dim sr as IO.streamreader en début de prog ;-)

Sympa le             'Télécharge le fichier et le copie dans le répertoire courrant
            My.Computer.Network.DownloadFile("http://www.tonurl.com/fichier.ext", LocalFile)
va faloir que je m'y mette tiens ^^
@ bientôt Mayzz

Mayzz · Answer

Oup's merci ADN, en effet, il s'est perdu dans le copier/coller de la correction !


Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

[VB.Net]

4 réponses

Votre réponse

Discussions similaires