Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="192.168.0.11"
ftp1.Port="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
[此贴子已经被作者于2015/7/7 15:16:04编辑过]