FTP Download

Imports System.IO

Public Class Form1
    Private FTPDownloader As New Utilities.FTP.FTPclient

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox2.Text = "Gianfranco"
        TextBox3.Text = ************
        TextBox4.Text = ************
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FTPDownloader.Hostname = TextBox4.Text.Trim
        FTPDownloader.Username = TextBox2.Text
        FTPDownloader.Password = TextBox3.Text
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        FTPDownloader.CurrentDirectory = "/Concerti"
        RefreshList()
    End Sub

    Private Sub RefreshList()
        ListBox1.Items.Clear()
        Try
            For Each file In FTPDownloader.ListDirectoryDetail()
                ListBox1.Items.Add(file.Filename)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            If MessageBox.Show("Sei sicuro di voler scaricare il download selezionato? " & ListBox1.SelectedItem, "Conferma", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK Then
                FTPDownloader.Download(ListBox1.SelectedItem, My.Computer.FileSystem.SpecialDirectories.Desktop + "\" + ListBox1.SelectedItem, True)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class