My Computer Network DownloadFile

Bonjour a tous :D,

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

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:

Citation:

destinationFileName doit inclure un nom de fichier.

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

Bonjour,

j'ai trouvé ceci sur le cours de P.Lasserre
Citation:
Charger un fichier à partir du réseau:

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

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

Salut

Citation:

Code:

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

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

Ajouté le nom dans l'url ?

Citation:

Envoyé par hunteshiva

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.

Code:

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

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

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

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;

Citation:

destinationFileName doit inclure un nom de fichier.

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

Citation:

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

Il faut que tu te serve de la variable maintenant:

Code:

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

Citation:
Envoyé par -N4w4k-
Il faut que tu te serve de la variable maintenant:
Code:

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:

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

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