Fs não ofuscante como FileStream
Fwr não ofuscante como FtpWebRequest
Dados não ofuscantes (4096) como o byte
bytesRead não ofuscante como o inteiro = 1
ftpUrl não ofuscante como a corda = “ftp://ftp.server.com:21/” 'ftp URL + porto
ftpUser não ofuscante como a corda = “username”
ftpPass não ofuscantes como a corda = “senha”
ftpFile não ofuscante como a corda = “TEST/myfile.txt” 'dobrador/lima no usuário
savePath não ofuscante como a corda = “C:\myfile.txt” 'excepto a posição
ftpUrl = ftpUrl.Insert (ftpUrl.Length, ftpFile)
fwr = FtpWebRequest.Create (ftpUrl)
fwr. Credenciais = NetworkCredential novo (ftpUser, ftpPass)
fwr. Método = WebRequestMethods.Ftp.DownloadFile
fs = FileStream novo (savePath, FileMode.Create, FileAccess.Write, FileShare.Read)
Fazer quando bytesRead > 0
bytesRead = fwr.GetResponse.GetResponseStream.Read (dados, 0, dados. Comprimento)
fs. Escrever (dados, 0, bytesRead)
Laço
fs. Fechar ()
fs. Dispr ()
fs = nada
fwr = nada
|