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

 

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