测试过连接没有问题，上传也没有问题，filexists也能找到该文件，但就是不能下载，也没有提示错误，请指点哪里写错了，代码如下：
Dim ftp1 As new ftpclient
ftp1.host="112.74.132.110"
ftp1.Account = "12345678"
ftp1.password = "12345678"
ftp1.UTF8 = True
If ftp1.Connected = False '如果FTP没有连接
If ftp1.Connect Then '连接FTP
If ftp1.FileExists("\查询\1111.docx") Then '
If ftp1.download("\查询\1111.docx","C:\Users\Administrator.3LXF76DS7R0IFRW\Desktop\测试成功.docx",True) = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
[此贴子已经被作者于2016/11/24 7:01:34编辑过]
加好友 
发短信
Post By：2016/11/24 6:55:00 [显示全部帖子]
