以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于FTP升级项目的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116766)
--  作者：km007
--  发布时间：2018/3/30 16:29:00
--  [求助]关于FTP升级项目的问题
使用FTP升级 总是发现不了新版本，请问是什么问题呢？
代码如下：

Dim ftpzh As String = "ceshi"
Dim fwqip As String = "190.190.190.190"
Dim ftpmm As String = "123456"
UpdatePath = "ftp://" & ftpzh & ":" & ftpmm & "@" & fwqip & "/update/"
RemoteUpdate = True
If Syscmd.Project.Update(False,True) = False Then \'如果没有升级
    output.show("暂无新版本")
End If
--  作者：有点甜
--  发布时间：2018/3/30 16:35:00
--  

1、弹出msgbox(UpdatePath)，看合成的地址对不对（在ie浏览器那里测试，看能否打开看到文件）

 

2、测试的代码，要发布后测试。如果你在没发布的项目测试， Syscmd.Project.Update不是访问你自己的升级程序，而是访问foxtable的升级程序，自然提示最新版

 

3、试试用这种代码

 

try
    UpdatePath = "ftp://bigpeng:Aa123456@47.96.7.165/Update/"
    Network.DownloadFile(updatePath & "update.txt", projectPath & "temp/update.txt" ,"" ,"" ,True, 100000, True) \'下载update.txt文件
    Dim ud() As String = FileSys.ReadAllText(projectPath & "temp/update.txt").Split("|") \'获取文件内容
    Dim Sdate1 As Date = Cdate(ud(0)) \'服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) \'服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate \'客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\\Bin\\Version.txt") \'客户端Version.txt发布日期
    If Sdate2 > Cdate2 Then
        msgbox("大版本")
        Network.DownloadFile(updatePath & "update2.zip", projectPath & "temp/update2.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = projectPath & "temp/"
        Syscmd.Project.Update(False,False)
    ElseIf Sdate1 > Cdate1 Then
        msgbox("小版本")
        Network.DownloadFile(updatePath & "update1.zip", projectPath & "temp/update1.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = projectPath & "temp/"
        Syscmd.Project.Update(False,False)
    End If
   
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try

 
--  作者：km007
--  发布时间：2018/3/30 17:39:00
--  
解决了，谢谢