Traverse FTP Folder

    Dim fwr As FtpWebRequest = FtpWebRequest.Create("ftp://xx.xx.xxx.xxx/")
        fwr.Credentials = New NetworkCredential("user", "password")
        fwr.Method = WebRequestMethods.Ftp.ListDirectory
        Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
        Dim str As String = sr.ReadLine()
        While Not str Is Nothing
          
            str = sr.ReadLine() 'hold the traverse file
       End While
        sr.Close()
        sr = Nothing
        fwr = Nothing