Public Sub FTPFill()

    Dim ftpreq As FtpWebRequest = FtpWebRequest.Create("ftp://FTPRoot/")
    With ftpreq
        .Credentials = New NetworkCredential(My.Settings.FTPUsername, My.Settings.FTPPassword)
        .Method = WebRequestMethods.Ftp.ListDirectory
    End With

    Dim sr As New StreamReader(ftpreq.GetResponse().GetResponseStream())
    Dim str As String = sr.ReadLine()


    For Each str In sr.ReadLine()

        Dim lvi As New ListViewItem(sr.ReadLine())
        lvi.ImageIndex = 0
        lvi.SubItems.Add("Folder")
        lvi.SubItems.Add(Path.GetExtension((sr.ReadLine())))
        ListView.Items.Add(lvi)
    Next

End Sub