- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ftp下载的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93482)
-- 发布时间：2016/11/29 19:20:00
-- ftp下载的问题
\'连接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却长时间连接不上，提示出错，为什么？
如果想判断红色的那行代码是否下载成功要怎么写才行，因为因网络等问题时如果下载不成功则永远停留在下载进度条那里，动也不动。
谢谢！
-- 发布时间：2016/11/29 20:43:00
--
试试
If ftp.Download("\\Update.Txt","D:\\UpdateTemporary\\Update.Txt") = True Then \'如果下载升级日期文件成功
msgbox(1)
End if
红色的那行代码只能判断下载后的文件是否存在，能否正常打开
-- 发布时间：2016/11/30 9:20:00
--
结果还是一样，将ftp.RootDir = "/Update" 注释掉在下面指定目录也不行，即指不指定ftp的根目录结果都是一样，
其实ftp地址从网页浏览器上都可以打开，但情况就是下载时会在下载目录下有如下文件，大小是0KB.
Update.Txt.fxdlif
如果下载成功的话这个文件就会自动变更 为Update.Txt
即ftp路径是可以访问，就是下载不了。
-- 发布时间：2016/11/30 9:35:00
--
试试重建一下ftp
-- 发布时间：2016/11/30 10:24:00
--
但是同一个ftp地址在网页上又可以正常下载啊
此主题相关图片如下：qq截图20161130102026.jpg
-- 发布时间：2016/11/30 10:50:00
--
狐表的ftp兼容性不是很好。重建一下ftp服务试试。
把“C:\\Windows\\System32\\inetsrv\\inetinfo.exe”加入防火墙例外