Esplorare il server FTP

'***** Esplorare il server FTP *****
'Variabili
Dim ftp_user As String = "user"
Dim ftp_password As String = "password"
Dim ftp_server As String = "server"

'Visualizzare il server attraverso un pulsante
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    WebBrowser1.Navigate("ftp://" + ftp_user + ":" + ftp_password + "@" + ftp_server + ":21/")
End Sub