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

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

还有：

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

怎么又要删除文件夹呢？

谢谢

我还是只能用复制整个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事件加入以上代码，就变成隐形更新了，根本看不到更新项目的执行。