Dim objfile As New FolderBrowserDialog
        Dim fPath As String, strfile As String
        objfile.ShowNewFolderButton = True
        If objfile.ShowDialog() <> DialogResult.Cancel Then
            fPath = objfile.SelectedPath()
            If fPath <> "" Then
                For Each strfile In ListBox2.SelectedItems
                    processt.Text = "Die Datei wurde erfolreich" & _
                      "heruntergeladen."
                    If Not myFTP.GetFile(fPath, strfile) Then Exit For
                Next
            End If
        End If