Тусклый fs как FileStream
Тусклое fwr как FtpWebRequest
Тусклые данные (4096) как байт
Тусклое bytesRead как интежер = 1
Тусклое ftpUrl как шнур = «ftp://ftp.server.com:21/» 'ftp url + порт
Тусклое ftpUser как шнур = «username»
Тусклые ftpPass как шнур = «пароль»
Тусклое ftpFile как шнур = «TEST/myfile.txt» 'скоросшиватель/архив на сервере
Тусклое savePath как шнур = «C:\myfile.txt» 'за исключением положения
ftpUrl = ftpUrl.Insert (ftpUrl.Length, ftpFile)
fwr = FtpWebRequest.Create (ftpUrl)
fwr. Документы = новое NetworkCredential (ftpUser, ftpPass)
fwr. Метод = WebRequestMethods.Ftp.DownloadFile
fs = новое FileStream (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
Сделайте пока bytesRead > 0
bytesRead = fwr.GetResponse.GetResponseStream.Read (данные, 0, данные. Длина)
fs. Напишите (данные, 0, bytesRead)
Петля
fs. Закройте ()
fs. Размещайте ()
fs = ничего
fwr = ничего
|