主题：FTP连接

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