1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Private Sub BT_DOWNLOAD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_DOWNLOAD.Click
'Code de téléchargement FTP avec WebClient
Dim request As WebClient
request = New WebClient()
'Encodage des identifiants de connexion au compte FTP
request.Credentials = New NetworkCredential("xxx", "xxx")
'Un tableau de Bite
Dim fileData() As Byte
'Le résultat est un tableau de bites que tu dois ensuite retranscire dans un fichier
fileData = request.DownloadData("ftp://xxx.xxx.xxx.xxx/xxx/@xxx/xxx/xxx/armalife.jpg")
Dim file As FileStream
file = New FileStream("/Users/<mon_nom>/Desktop/<un_dossier>/test", FileMode.Create)
File.Write(fileData, 0, fileData.Length)
File.Close()
End Sub |
Partager