主题：再问远程升级

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

 

通过什么方式升级？局域网？ftp？还是http？服务端怎么设置的，端口开放了没有？在客户端浏览器能不能打开升级地址？

可以改，改为21端口

 

我测试这个代码没问题

 

Network.DownloadFile("ftp://lyxx-wz:nxqlxx-wz-2018@218.203.157.198:21/dasj/update1.zip", "d:\aaaa.zip" ,"" ,"" ,True, 100000, True)

 

那说明升级肯定是没问题的。如果停着不动，看看是否弹出需要你连接公用网络的窗口？点击允许。

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

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

参考代码

 

http://www.foxtable.com/webhelp/scr/1410.htm

 

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

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

参考

 

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*****"
    ftp1.Account =  "ftp003"
    ftp1.password =  "*****"
   
    For Each f As String In dlg.FileNames
        If  ftp1.Upload(f,"/" & filesys.GetName(f) , True) = True Then
            Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
    ftp1.Close
End If