主题：再问远程升级

我测试这个代码没问题

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

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

参考代码

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

参考

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

比如

Dim  ftp1 As  New  FtpClient
ftp1.Host="218.203.157.198"
ftp1.Account =  "lyxx-wz"
ftp1.Password =  "nxqlxx-wz-2018"
Dim cs() = {"update.txt", "update1.zip", "update2.zip"}
For Each s As String In cs
    If  ftp1.Upload("G:\档案升级\" & s,"\dasj\" & s) = True Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next
msgbox("上传完成")
ftp1.close