Cannot access a disposed object. Object name: 'System.Net.Sockets.NetworkStream

See more:

VB

i am trying to download all the files from the ftp server,it showing this error

Cannot access a disposed object. Object name: 'System.Net.Sockets.NetworkStream..and this is my code

Dim filepath As String = "D:\transfer"
       Dim ftp As FtpWebRequest = DirectCast(WebRequest.Create("ftp://611.161.182.215/RPT/"), FtpWebRequest)
       ftp.Method = WebRequestMethods.Ftp.ListDirectory
       Dim ftpFiles As New ArrayList()
       ftp.Credentials = New NetworkCredential("admin", "12345")
       ftp.KeepAlive = True
       Dim Response As FtpWebResponse = ftp.GetResponse()
       Dim responseStream As Stream = Response.GetResponseStream()
       Dim reader = New StreamReader(responseStream)
       While Not (reader.EndOfStream)
           ftpFiles.Add(reader.ReadLine())
           'ListBox1.Items.Add(ftpFiles.ToString())
       End While
       For Each file In ftpFiles
           Dim a As String = file
           ' ListBox1.Items.Add(file)
           Dim outputStream As New FileStream(filepath + "\" + a, FileMode.Create)

           Response = DirectCast(ftp.GetResponse(), FtpWebResponse)
           responseStream = Response.GetResponseStream()

           Dim cl As Long = Response.ContentLength
           Dim bufferSize As Integer = 2048
           Dim readCount As Integer
           'ftp.KeepAlive = True


           Dim buffer As Byte() = New Byte(bufferSize - 1) {}
           readCount = responseStream.Read(buffer, 0, bufferSize)
           While readCount > 0
               outputStream.Write(buffer, 0, readCount)
               readCount = responseStream.Read(buffer, 0, bufferSize)
           End While
           responseStream.Close()
           outputStream.Close()
           response.Close()
           MsgBox("success")
       Next

   End Sub