Advertisement

12.06.2007 at 03:19PM PST, ID: 23007539
[x]
Attachment Details

vb.net FTP Download / File Size

Asked by aumudin in .NET, Microsoft Visual Basic.Net, Microsoft Visual C#.Net

Tags: file, download, ftp, size

I have aprogram which connects to the FTP server I have the upload peice working I can get he file directory yada yada where the problem lies is
1 - Cant get it to download the code completely(ill attach my download code and the error)
2 - I need to figure out how toget the file size befor I download so I can implement my progress bar and you will see where I have tried "response.contentlength" but it returns "-1"
------------
Problem for #1 is listed underneath the code
-------------------

Thanks for any help!Start Free Trial
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
        fdb.SelectedPath = Application.StartupPath
        fdb.ShowDialog()
        Dim tempSaveDir = fdb.SelectedPath
        Try
            Dim outputStream As FileStream = New FileStream(fdb.SelectedPath + "\\" + lbFiles.SelectedItem, FileMode.OpenOrCreate)
            Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(tempurl & "/" & lbFiles.SelectedItem), System.Net.FtpWebRequest)
            clsRequest.Credentials = New System.Net.NetworkCredential(Form1.tbUser.Text, Form1.tbPass.Text)
            clsRequest.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
 
            Dim response As FtpWebResponse = clsRequest.GetResponse
            Dim ftpStream As Stream = response.GetResponseStream()
            Dim cl As String = response.ContentLength
            MsgBox(cl)
            Dim bufferSize As Integer = 1024
            Dim readCount As Integer
            Dim buffer(bufferSize) As Byte
            Dim tempCount = 0
            ProgressBar.Value = 0
            While True
                readCount = ftpStream.Read(buffer, 0, bufferSize)
                If readCount > 0 Then
                    outputStream.Write(buffer, 0, readCount)
                    'ProgressBar.Value = (tempCount / cl) * 100
                End If
                'MsgBox(outputstre)
            End While
 
            ftpStream.Flush()
            outputStream.Flush()
            ftpStream.Dispose()
            outputStream.Dispose()
            response.Close()
 
        Catch ui As UriFormatException
            MsgBox("ui " + ui.Message)
        Catch io As IOException
            MsgBox("IO " + io.Message)
        Catch ex As Exception
            MsgBox("EX " + ex.Message)
        End Try
    End Sub
 
 
ERROR I receive when trying to download I get about 75% of the way thru the download - 
EX Cannot access adisposed object.
Object name: 'system.net.sockets.networkstream'.
 
Then it just stops and aborts the download all this doesnt make sense because im not disposing any object untill after the read AND I commented the code out and still doenst work.
 
Loading Advertisement...
 
[+][-]12.07.2007 at 01:14AM PST, ID: 20426234

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: .NET, Microsoft Visual Basic.Net, Microsoft Visual C#.Net
Tags: file, download, ftp, size
Sign Up Now!
Solution Provided By: Rimvis
Participating Experts: 2
Solution Grade: A
 
 
[+][-]12.07.2007 at 01:25AM PST, ID: 20426266

Assisted solutions are selected by the member who asked the question as a comment that contributed to their question's solution.

Start your 7-day free trial to view this Assisted Solution or ask the Experts your question.

 
[+][-]12.07.2007 at 06:54AM PST, ID: 20427746

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628