Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="ftp://192.168.0.11:3333"
ftp1.Account = "sa"
ftp1.Password = "123456789"
ftp1.utf8 = True
ftp1.OpenManager
fls = ftp1.GetFileList("/DDDD")
For Each fl As String In fls
Messagebox.Show(fl)
Next