再问远程升级 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 再问远程升级

共有2455人关注过本帖树形打印复制链接主题：再问远程升级

nxqtxwz

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

再问远程升级 发帖心情

Post By：2018/3/19 22:36:00 [显示全部帖子]

终于能登录服务器了，但升级时永远停在下载状态不动了，这是什么原因呢，如何解决？

nxqtxwz

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/3/19 22:58:00 [显示全部帖子]

升级路径：ftp://lyxx-wz:nxqlxx-wz-2018@218.203.157.198:2121 /dasj

我看到您的贴子说升级只能是21端口，我是2121，请问能改吗？有什么办法能实现升级？

nxqtxwz

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/3/20 9:31:00 [显示全部帖子]

谢谢老师了，我今天让管理员把端口改成了21，还没有试升级呢。谢谢。

nxqtxwz

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/3/20 11:38:00 [显示全部帖子]

这个代码很好用，怎么上传这三个文件呢。比如我的升级文件在本地：D:\\升级文件，代码怎么写？

nxqtxwz

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/3/21 11:53:00 [显示全部帖子]

我用这个代码上传成功，但一次传一个文件，能不能一次上传多个文件呢？代码怎么改呢。

Dim ftp1 As New FtpClient
ftp1.Host="218.203.157.198"
ftp1.Account = "lyxx-wz"
ftp1.Password = "nxqlxx-wz-2018"
If ftp1.Upload("G:\档案升级\update2.zip","\dasj\update2.zip") = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

nxqtxwz

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1495 积分：12175 威望：0 精华：0 注册：2013/3/19 16:41:00

Post By：2018/3/21 15:52:00 [显示全部帖子]

老师您好：这二行代码我看不懂。

For Each f As String In dlg.FileNames
If ftp1.Upload(f,"/" & filesys.GetName(f) , True) = True Then
我就是想把本地L:\档案升级\中的update.txt、update1.zip、update2.zip这三个文件传到服务器\dasj中，请问老师代码怎么写呢。

下一主题 >> << 上一主题

主题：再问远程升级