主题：[求助]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

 

问题出现在哪个范围呢？如何查找呢？谢谢！

 

 加入msgbox测试在哪里出问题了。

 

ftp1.upload(t,ft,True) '上传

ftp1.upload(z,fz,True) '上传

ftp1.upload(y,fy,True)

 

 

问题出在这三条语句上。从第一句开始，等了一会就出现了上面的告警！

 

1、msgbox(t)

 

2、msgbox(ft) 弹出对应路径看是否正确

 

3、看你的账号密码是否正确。

上述三项我都检查了 都是正确的

 做个例子上来测试。

服务器端FTP设成主动式的会出现上面情况么？ 服务器FTP应设置成主动式的还是被动式的呢？

 

设置成被动。

 加入代码测试是否能正常连接

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"

ftp1.OpenManager()