Faible fs comme FileStream
Faible fwr comme FtpWebRequest
Faibles données (4096) comme byte
Faible bytesRead comme nombre entier = 1
Faible ftpUrl comme corde = « ftp://ftp.server.com:21/ » 'ftp URL + port
Faible ftpUser comme corde = « username »
Faibles ftpPass comme corde = « mot de passe »
Faible ftpFile comme corde = « TEST/myfile.txt » 'chemise/dossier sur le serveur
Faible savePath comme corde = « C:\myfile.txt » 'sauf l'endroit
ftpUrl = ftpUrl.Insert (ftpUrl.Length, ftpFile)
fwr = FtpWebRequest.Create (ftpUrl)
fwr. Qualifications = nouveau NetworkCredential (ftpUser, ftpPass)
fwr. Méthode = WebRequestMethods.Ftp.DownloadFile
fs = nouveau FileStream (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
Faire tandis que bytesRead > 0
bytesRead = fwr.GetResponse.GetResponseStream.Read (données, 0, données. Longueur)
fs. Écrire (données, 0, bytesRead)
Boucle
fs. Se fermer ()
fs. Disposer ()
fs = rien
fwr = rien
|