Fs fioco come FileStream
Fwr fioco come FtpWebRequest
Dati fiochi (4096) come byte
bytesRead fioco come numero intero = 1
ftpUrl fioco come stringa = “ftp://ftp.server.com:21/„ 'ftp URL + orificio
ftpUser fioco come stringa = “username„
ftpPass fiochi come stringa = “parola d'accesso„
ftpFile fioco come stringa = “TEST/myfile.txt„ 'dispositivo di piegatura/lima sull'assistente
savePath fioco come stringa = “C:\myfile.txt„ 'salvo posizione
ftpUrl = ftpUrl.Insert (ftpUrl.Length, ftpFile)
fwr = FtpWebRequest.Create (ftpUrl)
fwr. Credenziali = nuovo NetworkCredential (ftpUser, ftpPass)
fwr. Metodo = WebRequestMethods.Ftp.DownloadFile
fs = nuovo FileStream (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
Fare mentre bytesRead > 0
bytesRead = fwr.GetResponse.GetResponseStream.Read (dati, 0, dati. Lunghezza)
fs. Scrivere (dati, 0, bytesRead)
Ciclo
fs. Chiuder ()
fs. Disporre ()
fs = niente
fwr = niente
|