Discussion :

[jeje25440]

Bonjour a tous ,

J'ai un problème lorsque je veut télécharger une image *.png depuis mon application.
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim user_name As String
        user_name = Environment.UserName
 
       My.Computer.Network.DownloadFile _
        ("http://s3.amazonaws.com/MinecraftSkins/" & TextBox1.Text & ".png", _
        "C:\Users\" & user_name & "\Downloads")
 
    End Sub

Mais quand je clique sur le bouton 3 (celui-ci) il me dise:

destinationFileName doit inclure un nom de fichier.

Pouvez vous m'aidez a résoudre ce problème.
Merci d'avance.

[hunteshiva]

Bonjour,

j'ai trouvé ceci sur le cours de P.Lasserre

Charger un fichier à partir du réseau:

My.Computer.Network.DownloadFile(AdresseCompleteFichierACharger, DestinationFileNane)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
With My.Computer.Network
    If .IsAvailable And .Ping(txtIpAdress.text) Then
        .UploadFile("c:\filetupload.ext", txtIpAdress.Text)
    End If
End With

[-N4w4k-]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"C:\Users\" & user_name & "\Downloads"

Ca ressemble plus à un destinationName qu'à un destinationFileName ..
Ajoute le nom du fichier dans l'url.

[jeje25440]

Ajouté le nom dans l'url ?

[jeje25440]

Bonjour,

j'ai trouvé ceci sur le cours de P.Lasserre

Je comprend rien a ton code. Sa doit pas etre sa que je cherche.

[-N4w4k-]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim destinationFileName As String = "C:\Users\" & user_name & "\Downloads" & TextBox1.Text & ".png"

Si TextBox1.Text & ".png" correspond au nom de ton fichier.

[jeje25440]

Oui textbox1.text correspond au nom du fichier dans l'url, mais j'ai remplacer mon code comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim user_name As String
        user_name = Environment.UserName
        Dim destinationFileName As String = "C:\Users\" & user_name & "\Downloads" & TextBox1.Text & ".png"
        My.Computer.Network.DownloadFile _
        ("http://s3.amazonaws.com/MinecraftSkins/" & TextBox1.Text & ".png", _
        "C:\Users\" & user_name & "\Downloads")
 
    End Sub

Mais sa me dit toujours le message d'erreur;

destinationFileName doit inclure un nom de fichier.

et en bas dans la case d'erreur il me marque ce message 2 fois

A first chance exception of type 'System.InvalidOperationException' occured in Microsoft.VisualBasic.dll

[-N4w4k-]

Il faut que tu te serve de la variable maintenant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim user_name As String
        user_name = Environment.UserName
        Dim destinationFileName As String = "C:\Users\" & user_name & "\Downloads" & TextBox1.Text & ".png"
        Dim sourceFileName As String = "http://s3.amazonaws.com/MinecraftSkins/" & TextBox1.Text & ".png"
        My.Computer.Network.DownloadFile(sourceFileName, destinationFileName)
 
End Sub

[jeje25440]

Il faut que tu te serve de la variable maintenant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim user_name As String
        user_name = Environment.UserName
        Dim destinationFileName As String = "C:\Users\" & user_name & "\Downloads" & TextBox1.Text & ".png"
        Dim sourceFileName As String = "http://s3.amazonaws.com/MinecraftSkins/" & TextBox1.Text & ".png"
        My.Computer.Network.DownloadFile(sourceFileName, destinationFileName)
 
End Sub

Merci sa marche mais tu a fait une faute xD

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim destinationFileName As String = "C:\Users\" & user_name & "\Downloads\" & TextBox1.Text & ".png"

Tu avais oublié un slash ("/") apres le download. Mais franchement, merci