主题：项目发布后，如何自动检测当前版本并在后台升级

以下是引用lihe60在2010-10-14 8:42:00的发言：

此主题相关图片如下：未命名.bmp

出现这个，应该检查你下载文件的地址，你的地址是：192.168.1.1，后面的端口应该不用80吧，我做的是用文件共享方式，所以没80端口的。大家在用的时候要看帮助里的“Network.DownloadFile”相关用法。

老兄,你的版本号,

是狐表发布窗口中的程序版本号?文件版本号?还是自已编辑定义的版本号?

yankunhao兄，您好，对你的代码有一些疑问

Dim szdj As String =e.Form.Controls("TextBox1").Value '下载地址对吗？
Dim bcdj As String =e.Form.Controls("TextBox2").value '保存地址对吗？
Dim yfm As String =e.Form.Controls("TextBox3").value '好像没用
Dim mm As String =e.Form.Controls("TextBox4").value '好像没用
Network.DownloadFile(szdj,bcdj,"","",True,1000,True) ' 下载并覆盖原文件
Dim s As String =e.Form.Controls("TextBox6").value
Dim c As String =s & "\" & e.Form.Controls("TextBox5").value
If FileSys.DirectoryExists(c) Then '如果目录C:\MyFolder存在
    FileSys.DeleteDirectory(c,3,2)'则删除之                       为什么还要删除文件
End If
Dim Proc As New Process
Proc.File = bcdj
Proc.Verb = "open"
Proc.Start()
Proc.WaitForInputIdle()                  
Sendkeys.SendWait(s) '发送按键信息
Sendkeys.SendWait("{ENTER}")
Sendkeys.sendwait("{RIGHT 1}")
Sendkeys.Sendwait("{ENTER}")      这一段代码起什么作用
Dim Result As DialogResult
Result = MessageBox.Show("升级完成,请重新打开本系统!","提示")
If Result = DialogResult.OK Then
    Syscmd.Project.Exit()
End If

还有：

下载并覆盖的是发布项目后的文件夹中的执行文件，并且发布的项目只下载这个好像不行，

怎么又要删除文件夹呢？

谢谢

 版本号是你定义的，比如你做了个软件，在发布时用‘20101001’这个做版本号，而在你做这个软件时用内部表做登录窗口，这个内部表有用一列（客户端版本号）的第一行保存，这样客户端的版本号就一直在用户的电脑上保存着，以后需要升级的话，就会从服务器的一个共享文件里下载打包了的新客户端软件包，然后将原来的客户端软件目录一次性删除，再将打包的新客户端自动解压到原客户的地方。这个新的客户端软件在你做修改时记得在上所说的内部表里设定一个新的客户端版本号及新的服务器版本号（这个版本号要用外部表，因为你可以更改外部表而不可能去到用户电脑里改，这就是为什么客户产端版本号和服务器的版本要分开设定的原因了）。

其实老六可以考虑一下的，我相信是可行的，因为我发现好多用户都会有用到这个。我的想法是：比如老六在狐表的项目里专门有个给用户设定版本号的地方，如用户端版本号，服务端版号（或变量），然后服务器的IP等一些相关的参数......

  只要老六想做，我相信是不难的。

升级工具?????????????

 不懂,,,,

    是什么软件?能分享一下吗?

就是我们用狐表专门做的这个升级项目发布生成的一个专用来升级的小程序，当你做的其他管理项目要升级的时候就调用这个工具，这个工具可以和你的管理项目发布的软件一起放在同一个目录中，这个目录下有两个文件夹，一个是这个升级小工具，而另一个就是你做的其他管理项目如我的就是**计件工资管理....

这个早已经有了。

SaveConfigValue，保存设置信息。

GetConfigValue，读取设置信息。

我还是只能用复制整个Publish（服务器上要共享）文件夹来解决的。老兄这个我还没搞懂

在一新项目（看命名更新程序等等），做一个窗口和按钮，按钮代码如下：

FileSys.CopyDirectory ("\\192.168.3.100\wqc共享文件夹\Publish", "E:\车间数据库\Publish", True) '复制服务器发布的文件夹到客户端指定文件夹并覆盖原文件夹。
Dim Proc As New Process '定义一个新的Process
Proc.File = "E:\车间数据库\Publish\佶龙机加二车间数据管理系统" '指定文件路径
Proc.Start()'打开文件
Syscmd.Project.Exit(False)

或者直接在一新项目（看命名更新程序等等）的AfterOpenProject事件加入以上代码，就变成隐形更新了，根本看不到更新项目的执行。