Downloading all files in a FTP folder and then deleting them. That allow me to download the contents of an FTP folder and if. Directory, download files.
First, use Try.Catch.End Try to catch the error. It helps to solve the problem. And secondly, everything you do with the web is always more or less error prone. Basic problem in your code is understanding how communication works between server and the client. Norfolk Southern Locomotive Engineer Training Handbook more. In the code above you request something from the server and the server sends you a response. I dropped the progressbar from your code because ContentLength does not return the filesize (actually reading ContentLength causes an error). You should request Ftp.GetFileSize and read the response.
Second change I made is reading incoming data in a blocks and dumping blocks to a file. Reading a large file one byte at a time can be really slow. Anyway, here's my code: Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click ' Dim buffer(1023) As Byte ' Allocate a read buffer of 1kB size Dim bytesIn As Integer ' Number of bytes read to buffer Dim totalBytesIn As Integer ' Total number of bytes received (= filesize) Dim output As IO.Stream ' A file to save response Try Dim FTPRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(' & 'README.TXT'), System.Net.FtpWebRequest) ' No credentials needed in this case. Usually you need to provide them. Catch the appropriate error if/when credentials are wrong!
FTPRequest.Credentials = New System.Net.NetworkCredential(', ') ' Send a request to download a file FTPRequest.Method = System.Net. Microsoft Mouse Ps 2 Driver Update here. WebRequestMethods.Ftp.DownloadFile ' FTP server return a _response_ to your request Dim stream As System.IO.Stream = FTPRequest.GetResponse.GetResponseStream ' If you need the length of the file, send a request Ftp.GetFileSize and read the response 'Dim length As Integer = CInt(FTPRequest.GetResponse.ContentLength) ' Write the content to the output file output = System.IO.File.Create('C: temp file2.txt') bytesIn = 1 ' Set initial value to 1 to get into loop. We get out of the loop when bytesIn is zero Do Until bytesIn 0 Then ' Dump the buffer to a file output.Write(buffer, 0, bytesIn) ' Calc total filesize totalBytesIn += bytesIn ' Show user the filesize Label1.Text = totalBytesIn.ToString + ' Bytes Downloaded' Application.DoEvents() End If Loop ' Close streams output.Close() stream.Close() Catch ex As Exception ' Catch exceptions. THIS IS ONLY FOR DEBUGGING ERRORS. In the production code, use a bit smarter exception catching;) MessageBox.Show(ex.Message) End Try End Sub Sorry about formatting.
I'm used to old bbcodes, read formatting help but still couldn't get code color-coded.