感谢您的回复.
我通过以下代码:
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="IP地址*****"
ftp1.Account = "用户名***"
ftp1.Password = "密码***"
fls = ftp1.GetFileList("\gaoshengde")
For Each fl As String In fls
Dim Values As New List(Of String)
Values.Add(fl)
For i As Integer = 0 To Values.Count -1
Output.Show(Values(i)) '获取FTP目录的文件列表
If ftp1.Download(Values(i),"C:\Data" & Values(i)) = True Then '此处设置的地址是不是错了.
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
Next
加好友 
发短信
Post By：2017/3/28 16:18:00 [显示全部帖子]
