专家坐堂-从ftp上下载文件提示错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=85481)

--  作者：kao_go
--  发布时间：2016/5/26 16:49:00
--  从ftp上下载文件提示错误

设置了ftp服务器，也能够正常连接和打开

在以下代码，从ftp复制文件到本地的时候提示错误

此主题相关图片如下：qq截图20160526164103.jpg

用message.box显示ftp文件地址和本地文件都是正确

Dim util As new INIClass(_lujing & "zt.ini")
Dim sjlj As String \'升级路径
If util.ExistINIFile Then \'读ini文件
sjlj= DecryptText(util.IniReadValue("zt1", "sjlj"), _my1, _my2)
Else
MessageBox.Show("帐套配置文件不存在,系统无法打开,请联系管理员!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return \'不执行后续的代码
End If
UpdatePath=sjlj

If FileSys.DirectoryExists(sjlj)=False Then \'如果本地升级目录不存在,则新增
FileSys.CreateDirectory(sjlj)
End If

\'从ini文件中获取ftp配置信息
Dim util2 As new INIClass(_lujing & "ftp.ini")
Dim dizhi As String
Dim duankou As String
Dim yonghu As String
Dim mima As String
Dim ftp_sjlj As String

If util2.ExistINIFile Then \'读ini文件
dizhi = DecryptText(util2.IniReadValue("ftp1", "dizhi"), _my1, _my2)
duankou = DecryptText(util2.IniReadValue("ftp1", "duankou"), _my1, _my2)
yonghu = DecryptText(util2.IniReadValue("ftp1", "yonghu"), _my1, _my2)
mima = DecryptText(util2.IniReadValue("ftp1", "mima"), _my1, _my2)
ftp_sjlj = DecryptText(util2.IniReadValue("ftp1", "sjlj"), _my1, _my2)
Else
MessageBox.Show("ftp配置文件不存在,图片和文档无法打开,请联系管理员!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return \'不执行后续尝试连接的代码
End If
\'从ini文件中获取zt配置信息

Network.DownloadFile("ftp://"+dizhi+":"+duankou+"/"+ftp_sjlj+"/update.txt",sjlj+"\\update.txt" ,yonghu ,mima ,True ,100000,True) \'从ftp服务器复制升级文件到本地
Network.DownloadFile("ftp://"+dizhi+":"+duankou+"/"+ftp_sjlj+"/update1.zip",sjlj+"\\update1.zip" ,yonghu ,mima ,True ,100000,True) \'从ftp服务器复制升级文件到本地
Network.DownloadFile("ftp://"+dizhi+":"+duankou+"/"+ftp_sjlj+"/update2.zip",sjlj+"\\update2.zip" ,yonghu ,mima ,True ,100000,True) \'从ftp服务器复制升级文件到本地

If Syscmd.Project.Update(False,True) = False Then \'如果没有升级

[此贴子已经被作者于2016/5/26 16:51:35编辑过]

--  作者：大红袍
--  发布时间：2016/5/26 17:17:00
--

msgbox(("ftp://"+dizhi+":"+duankou+"/"+ftp_sjlj+"/update.txt")

看弹出什么，直接拷贝这个路径到IE浏览器，看能否访问。

--  作者：kao_go
--  发布时间：2016/5/26 17:23:00
--
第一张是弹出的地址

此主题相关图片如下：11111.jpg

第二张是在浏览器中打开的内容

此主题相关图片如下：2222.jpg

--  作者：大红袍
--  发布时间：2016/5/26 17:26:00
--

你没填账号密码？

ftp://账号:密码@ip地址:端口号/

--  作者：kao_go
--  发布时间：2016/5/26 17:28:00
--
Network.DownloadFile("ftp://"+dizhi+":"+duankou+"/"+ftp_sjlj+"/update.txt",sjlj+"\\update.txt" ,yonghu ,mima ,True ,100000,True) \'从ftp服务器复制升级文件到本地

我是用的这种方式，账号密码填在后面

--  作者：kao_go
--  发布时间：2016/5/26 17:29:00
--
再网页里面直接输入时因为，我已经在网页上登录了

--  作者：大红袍
--  发布时间：2016/5/26 17:34:00
--

贴出完整的路径，加上账号密码啊

--  作者：kao_go
--  发布时间：2016/5/26 17:44:00
--
我在浏览器中直接输入【ftp://ftp1:kao_9796@113.106.87.33:58800/gengxin/update.txt】可以正常显示

此主题相关图片如下：88.jpg

Network.DownloadFile("ftp://"+dizhi+":"+duankou+"/"+ftp_sjlj+"/update.txt",sjlj+"\\update.txt" ,yonghu ,mima ,false,100000,True) \'从ftp服务器复制升级文件到本地

红色部分我改成false以后显示以下提示

此主题相关图片如下：99.jpg

--  作者：kao_go
--  发布时间：2016/5/26 17:45:00
--
是因为，ftp的传输模式导致的吗？我用FileZilla建的ftp服务器，有设置被动模式的

此主题相关图片如下：77.jpg

--  作者：大红袍
--  发布时间：2016/5/26 17:48:00
--

我执行这句代码，没问题

Network.DownloadFile("ftp://ftp1:kao_9796@113.106.87.33:58800/gengxin/update.txt", "d:\\test.txt" ,"" ,"" ,False, 100000, True)