Imports System.Net
Imports System.IO
 
 
Public Class TxtFTP
 
    Dim i As Double
 
    ' 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
            MsgBox("Auflistung komplett!")
        Catch ex As UriFormatException
            MsgBox(ex.Message)
        Catch ex As WebException
            MsgBox(ex.Message)
        Finally
            If reader IsNot Nothing Then reader.Close()
        End Try
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        ListBox1.Items.Clear()
        listFTP("ftp://" & tb_server.Text & "/" & tb_pfad.Text, tb_user.Text, _
          tb_pass.Text)
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
 
        ListBox1.SelectedIndex = 0 'Erste Zeile in Listbox markieren
 
        For i = 0 To ListBox1.Items.Count - 1
 
            If Path.GetExtension(ListBox1.SelectedItem.ToString()) = ".txt" Then
                ListBox2.Items.Add(ListBox1.SelectedItem.ToString())
            End If
 
            Try
                'Wenn die letzte Zeile erreicht ist oder gar kein Eintrag 
                ' existiert
                'darf die nächste Zeile nicht selektiert werden da sonst ein 
                ' Fehler
                'ausgelöst wird
                ListBox1.SelectedIndex += 1
            Catch
                'Nichts tun
            End Try
 
        Next
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        ListBox2.SelectedIndex = 0
 
        For i = 0 To ListBox2.Items.Count - 1
 
            'Wenn Datei existiert führt das zu einem Absturz, deshalb Datei 
            ' ggf. vorher
            'vom lokalen Datenträger löschen
            If IO.File.Exists("D:\Testordner\" & Path.GetFileName( _
              ListBox2.SelectedItem.ToString)) = True Then
                IO.File.Delete("D:\Testordner\" & Path.GetFileName( _
                ListBox2.SelectedItem.ToString))
            End If
 
 
            My.Computer.Network.DownloadFile("ftp://" & tb_user.Text & ":" & _
              tb_pass.Text & "@" & tb_server.Text & "/" & tb_pfad.Text & "/" & _
              Path.GetFileName(ListBox2.SelectedItem.ToString), _
              "D:\Testordner\" & Path.GetFileName( _
              ListBox2.SelectedItem.ToString))
 
            Try
                ListBox2.SelectedIndex += 1
            Catch
                'Letzter Datensatz erreicht, Abbruch
                MsgBox("Es wurden alle Dateien heruntergeladen!")
            End Try
 
        Next
 
    End Sub
End Class