Dim fwr As FtpWebRequest = FtpWebRequest.Create("FTP-URL")
 
        fwr.Credentials = New NetworkCredential("Username", "Passwort")
        fwr.Method = WebRequestMethods.Ftp.ListDirectory
        Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())
        Dim str As String = sr.ReadLine()
 
 
        While Not str Is Nothing
 
 
            ListBox1.Items.Add(str)
 
            str = sr.ReadLine()
 
        End While
 
        sr.Close()
 
        sr = Nothing
 
        fwr = Nothing