Problema al Listar los Archivos [FTP] [RESUELTO]

[Keyen Night]

Error de principiante xD en FTP los directorios llevan "\" al final sino entonces el ftp los toma como archivos...

Código (vb.net) [Seleccionar] Expandir

   Public Function ListDirectory(ByVal dir As String) As List(Of String)
       Dim FTP As FtpWebRequest

       ListDirectory = New List(Of String)

       FTP = CType(WebRequest.Create(New Uri(dir)), FtpWebRequest)
       FTP.Credentials = DefaultCredentials
       FTP.Method = WebRequestMethods.Ftp.ListDirectory
       FTP.UsePassive = False

       Try
           Dim SReader As New StreamReader(FTP.GetResponse.GetResponseStream)

           Dim SString As New String(SReader.ReadLine)

           While Not SString Is Nothing
               ListDirectory.Add(SString) ' - - -> ERROR EN ESTÁ LÍNEA
               SString = SReader.ReadLine
           End While

           SReader.Close()

       Catch
           Return ListDirectory
       End Try
   End Function

Para poder ver detalles del error quite el Try, el error dice así:

Código [Seleccionar] Expandir

No se puede obtener acceso al objeto eliminado. Nombre del objeto: 'System.Net.Sockets.NetworkStream'.

Pero no entiendo porque está eliminado

Alguna otra forma de trabajar con el Stream o hay algo mal?

Gracias.