我的b/s结构软件升级包

从没看过别人如何写升级包，我想是不是能有这类的自动化工具？这个程序应该比较通用。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        If CheckBox1.Checked = True Then
            Dim dirinfo As DirectoryInfo = New DirectoryInfo(AppFolder.Text)
            If dirinfo.Exists = False Then
                MessageBox.Show("程序安装文件夹不存在，请重新填写．", "失败", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
                GoTo myFlagError
            End If

            Dim AppUpdate As New Process
            AppUpdate.StartInfo.FileName = "xcopy.exe"
            AppUpdate.StartInfo.Arguments = String.Format("{0} {1} /s /y", "App", AppFolder.Text)
            Try
                AppUpdate.Start()
                AppUpdate.WaitForExit()
                AppUpdate.Close()
                MessageBox.Show("程序已经成功升级！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
            Catch ex As Exception
                MessageBox.Show("升级程序失败！请联系北京****公司．", "失败", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
            End Try
        End If

            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            If CheckBox2.Checked = True Then
                Dim connString As String = String.Format("workstation id=.;packet size=4096;user id={0};pwd={1};data source=.;persist security info=False;initial catalog={2}", DBAdmin.Text, DBPasswd.Text, DBName.Text)
                Try
                    Dim TestInteger As Integer = SqlHelper.ExecuteScalar(connString, CommandType.Text, "select count(*) from sysusers")
                Catch ex As Exception
                    MessageBox.Show("数据库连接失败，请检查所填写数据库信息是否正确．", "失败", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
                    GoTo myFlagError
                End Try

                Dim Succ As Boolean = True
                Dim SQLUpdate As New Process
                Dim files As FileInfo
                Dim dir As DirectoryInfo = New DirectoryInfo("Sql/")
                For Each files In dir.GetFiles

                    SQLUpdate.StartInfo.FileName = "osql.exe"
                    SQLUpdate.StartInfo.Arguments = String.Format("-U {0} -P {1} -d {2} -i {3}", DBAdmin.Text, DBPasswd.Text, DBName.Text, "Sql/" & files.Name)
                    Try
                        SQLUpdate.Start()
                        SQLUpdate.WaitForExit()
                        SQLUpdate.Close()

                    Catch ex As Exception
                        MessageBox.Show("升级数据库脚本 " & files.Name & " 失败！请联系北京****公司．", "失败", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
                        Succ = False
                    End Try
                Next
                If Succ = True Then
                    MessageBox.Show("数据库脚本已经成功升级！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)
                End If
            End If

myFlagError:  ' 连接数据库失败出错！