While readCount > 0 If bckDownloader(index).CancellationPending Then ' If user abort download ReadCount = ftpStream.Read(buffer, 0, bufferSize) OutputStream = New FileStream(saveLocation + fileName, FileMode.Create) TimeStarted = Format(Now, " hh:mm:ss tt")
Response = DirectCast(request.GetResponse(), FtpWebResponse)ĭim bufferSize As Integer = 2048 Dim readCount As Integer Dim buffer As Byte() = New Byte(bufferSize - 1) ĭim downloaded As Long = 0 Dim elapseTime As New Stopwatch Request.Credentials = New NetworkCredential(username, password) Request = DirectCast(FtpWebRequest.Create( New Uri(ftp)), FtpWebRequest) Copy Code Dim request As FtpWebRequest = Nothing Dim response As FtpWebResponse = Nothing
0 kommentar(er)
