Skip to content

Gestor de Actualizaciones casero

January 24, 2013

1.       Crear dos constantes:

    Public Const txtVersio As String = “v.2.06”
    Public Const intVersio As Integer = 206

2.       Código:

3.     
4.          ‘ Esbrinar versió del fitxer executable
5.          
6.          Dim carpetaLocal As New DirectoryInfo(“C:\LOCAL\”)
7.          Dim carpetaServidor As New DirectoryInfo(“\\SERVIDOR\”)
8.          Dim versioLocal As Integer
9.          Dim versioServidor As Integer
10. 
11.        ‘ Desar 3 xifres de la versió local a variable     
12.        versioLocal = intVersio
13. 
14.        ‘ Desar 3 xifres de la versió a Servidor a variable
15.        For Each file As FileInfo In carpetaServidor.GetFiles()
16.            If Mid(file.Name.ToString, 13, 15) = “exe” Then
17.                versioServidor = Mid(file.Name.ToString, 1, 3)
18.            End If
19.        Next
20. 
21.        ‘ Actualitzem versió, si cal
22.        Try
23.            If versioLocal < versioServidor Then
24.                If MsgBox(“HI HA DISPONIBLE UNA VERSIÓ MÉS RECENT DEL PROGRAMA. ACTUALITZEM?”, MsgBoxStyle.YesNo + MsgBoxStyle.Question, ConfirmacioProces) = MsgBoxResult.Yes Then
25.                    ‘ actualitzar versió
26.                    ‘ Crear .BAT
27.                    Dim intru As Object
28.                    Dim fitxer As Object
29.                    intru = CreateObject(“Scripting.FileSystemObject”)
30.                    fitxer = intru.createTextFile(“C:\LOCAL\controlVersio.bat”, True)
31.                    ‘ Matar procés
32.                    fitxer.writeLine(“taskkill /IM “”programa.exe”” /F”)
33.                    ‘ Eliminar executable local
34.                    fitxer.writeLine(“DEL C:\LOCAL\programa.exe”)
35.                    ‘ Copiar darrera versió
36.                    fitxer.writeLine(“XCOPY “”\\SERVIDOR\” & versioServidor & “programa.exe”” C:\LOCAL\ /s /y”)
37.                    ‘ Renombrar fixer
38.                    fitxer.writeLine(“RENAME C:\LOCAL\” & versioServidor & ” programa.exe programa.exe”)
39.                    ‘ Tancar fitxer obert
40.                    fitxer.close()
41.                    ‘ Executar .BAT
42.                    Process.Start(“C:\LOCAL\controlVersio.bat”)
43.                End If
44.            Else
45.                ‘ Esborrem el fitxer .bat si no cal actualitzar la versióexit
46.                ‘ Process.Start(“DEL C:\SYSPROD\controlVersio.bat”)
47.            End If
48.        Catch ex As Exception
49.            MsgBox(Err.Number & ” “ & Err.Description, vbOKOnly, “ERROR”)

50.        End Try

Lo que hay que hacer cada vez que se genere una nueva versión, es poner en el servidor el archivo ejecutable con les 3 dígitos de la versión delante.

From → Configuraciones

Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: