那我要在项目属性中的在线升级那里设定升级地址不呢?
或者是项目属性中的在线升级地址有变更 我直接在代码中红色代码部分定义升级目录 是否一样可以实现升级效果呢?
try
Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("\zonghexinxi\update.txt","c:\data\update.txt") = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Dim str2 As String = FileSys.ReadAllText("c:\data\update.txt")
Dim ud() As String = str2.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 OrElse Sdate1 > Cdate1 Then
msgbox("有新版本")
'静默升级代码
RemoteUpdate=True
UpdatePath = ”ftp://lixichu:LXClxc@4.1.24.5/zonghexinxi/“
Syscmd.Project.Update(False,False)
End If
catch ex As exception
msgbox(ex.message)
msgbox("下载失败")
End try