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

帮助查查“Upload”是干嘛用的？http://www.foxtable.com/webhelp/scr/1410.htm

需要的是下载，而不是上传！

服务器是如何更新图片的？在服务器里打开查看在 -- 在资源管理器打开？

Dim updatepath As String

updatepath ="http://...."

RemoteUpdate= True

Network.DownloadFile(updatepath & "/update.txt",ProjectPath &"update.txt")

Dim Values() As String = FileSys.ReadAllText(ProjectPath & "update.txt").split("|")

messagebox.show(format(cdate(values(0)),"d"))

If PublishDate<format(cdate(values(0)),"d")

MessageBox.Show("发现新版本:" & format(cdate(values(0)),"d"))

Network .DownloadFile(updatepath & "/update2.zip",ProjectPath &"update2.zip" ,"","",True,60000,True)

Dim zip As New ZipFile

zip.Open( ProjectPath & "update2.zip")

zip.Extractall(ProjectPath )

zip.Close()

MessageBox.Show("更新完成,重新运行")

Syscmd.Project.Open(ProjectFile)

Syscmd.Project.Exit()

Else

messagebox.show("当前版本已为最新版")

End If

If FileSys.FileExists(ProjectPath & "update2.zip") Then '如果指定的文件存在

FileSys.DeleteFile(ProjectPath & "update2.zip",2,2) '则彻底删除之

End If

If FileSys.FileExists(ProjectPath & "update.txt") Then '如果指定的文件存在

FileSys.DeleteFile(ProjectPath & "update.txt",2,2) '则彻底删除之

End If

try

Dim updatepath As String

updatepath ="http://...."

RemoteUpdate= True

Network.DownloadFile(updatepath & "/update.txt",ProjectPath &"update.txt")

Dim Values() As String = FileSys.ReadAllText(ProjectPath & "update.txt").split("|")

messagebox.show(format(cdate(values(0)),"d"))

If PublishDate<format(cdate(values(0)),"d")

MessageBox.Show("发现新版本:" & format(cdate(values(0)),"d"))

Network .DownloadFile(updatepath & "/update2.zip",ProjectPath &"update2.zip" ,"","",True,60000,True)

Dim zip As New ZipFile

zip.Open( ProjectPath & "update2.zip")

zip.Extractall(ProjectPath )

zip.Close()

MessageBox.Show("更新完成,重新运行")

Syscmd.Project.Open(ProjectFile) '打开新项目

Syscmd.Project.Exit() '退出当前项目

Else

messagebox.show("当前版本已为最新版")

End If

catch ex As exception
msgbox(ex.message)
msgbox("下载失败")
End try

zip.Extractall(ApplicationPath )

主题：手动升级