- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]FTP传送升级数据出错？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64401)
-- 发布时间：2015/2/12 19:21:00
-- [求助]FTP传送升级数据出错？
应用程序传送升级数据。升级程序是移植过来的，在N个程序上应用都很正常。
把传送数据程序COPY过来之后，更新了用户 密码 IP地址后，运行就出现了下述错误。
此主题相关图片如下：qq图片20150212172030.png
目的机器的目录是存在的，因为如果没有目录下面语句会自动创建的。
If ftp1.DirExists(fp) = False Then
Info.Text = Info.Text & vbcrlf & Date.Now & " " & "在FTP上创建上传目录......"
Application.DoEvents()
ftp1.MakeDir(fp)
Else
Info.Text = Info.Text & vbcrlf & Date.Now & " " & "目录校验成功......"
End If
问题出现在哪个范围呢？如何查找呢？谢谢！
-- 发布时间：2015/2/12 19:24:00
--
加入msgbox测试在哪里出问题了。
-- 发布时间：2015/2/12 19:36:00
--
ftp1.upload(t,ft,True) \'上传
ftp1.upload(z,fz,True) \'上传
ftp1.upload(y,fy,True)
问题出在这三条语句上。从第一句开始，等了一会就出现了上面的告警！
-- 发布时间：2015/2/12 20:14:00
--
ftp1.upload(t,ft,True) \'上传
ftp1.upload(z,fz,True) \'上传
ftp1.upload(y,fy,True)
问题出在这三条语句上。从第一句开始，等了一会就出现了上面的告警！
1、msgbox(t)
2、msgbox(ft) 弹出对应路径看是否正确
3、看你的账号密码是否正确。
-- 发布时间：2015/2/12 21:03:00
--
上述三项我都检查了 都是正确的
-- 发布时间：2015/2/12 21:13:00
--
做个例子上来测试。
-- 发布时间：2015/2/13 10:23:00
--
服务器端FTP设成主动式的会出现上面情况么？ 服务器FTP应设置成主动式的还是被动式的呢？
-- 发布时间：2015/2/13 10:24:00
--
服务器端FTP设成主动式的会出现上面情况么？ 服务器FTP应设置成主动式的还是被动式的呢？
设置成被动。
-- 发布时间：2015/2/13 10:25:00
--
加入代码测试是否能正常连接
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.OpenManager()