Imports System.Net
Imports System.IO
 
Public Class Form1
 
    ' FTP-Verzeichnis auflisten:
    Private Sub listFTP(ByVal URL As String, ByVal bk As String, ByVal pw As _
      String)
 
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim reader As StreamReader = Nothing
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
            'Auszuführende Aktion festlegen:
            requ.Method = WebRequestMethods.Ftp.ListDirectory
            resp = CType(requ.GetResponse(), FtpWebResponse)
            reader = New StreamReader(resp.GetResponseStream())
            While (reader.Peek() > -1)
                ListBox1.Items.Add(reader.ReadLine())
            End While
            'ToolStripStatusLabel1.Text = "Auflistung komplett!"
        Catch ex As UriFormatException
            'ToolStripStatusLabel1.Text = ex.Message
        Catch ex As WebException
            'ToolStripStatusLabel2.Text = ex.Message
        Finally
            If reader IsNot Nothing Then reader.Close()
        End Try
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        listFTP(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub