'连接FTP服务器
Dim ftp As New FtpClient
ftp.Host = ftp_Host 'ftp服务器地址
ftp.Account = ftp_User 'ftp登录帐号
ftp.Password = ftp_Pwd 'ftp登录密码
ftp.Port = ftp_Port 'ftp端口号
ftp.RootDir = "/Update"
Network.DownloadFile("ftp://" & ftp.Account & ":" & ftp.Password & "@" & ftp.Host & "/Update/Update.Txt","D:\UpdateTemporary\Update.Txt","" ,"" ,True, 100000, True)
If ftp.Download("/Update/Update.Txt","D:\UpdateTemporary\Update.Txt") = True Then '如果下载升级日期文件成功
msgbox(1)
End if
都是同样的ftp帐号，但红色的代码可以成功下载，但下面ftp.Download却长时间连接不上，提示出错，为什么？
如果想判断红色的那行代码是否下载成功要怎么写才行，因为因网络等问题时如果下载不成功则永远停留在下载进度条那里，动也不动。
谢谢！
加好友 
发短信
Post By：2016/11/29 19:20:00 [只看该作者]
此主题相关图片如下：qq截图20161130102026.jpg