设置了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编辑过]
加好友 
发短信
Post By：2016/5/26 16:49:00 [显示全部帖子]
