Click here to Skip to main content
13,552,119 members
Click here to Skip to main content
Add your own
alternative version


337 bookmarked
Posted 5 Sep 2005
Licenced CPOL

Application Auto Update in VB.NET

, 19 Dec 2005
Rate this:
Please Sign up or sign in to vote.
An article on updating Windows application through the web.


This code enables an application to update itself when there is a new version available. The auto update is transparent to the user and checks for new updates every time the user launches the program. This code was written to be used in a controlled environment (intranet) and is not intended to be used through the internet due to security issues.


I've been developing client/server systems for a long time, and the worst part of the software life cycle is to update it in all users' machine. The worst scenario is when you need to make a database change, and all the users are required have the latest version, otherwise the system will crash.

Today a lot of systems offer the ability to auto update, what makes the programmer's and the user's life easier. Looking through the internet, I couldn't find any code that I could use in my projects in a simple way, so I decided to write my own code.

Some points that I'd like to have in an auto update program are:

  • Easy to implement and use.
  • Transparent to the user.
  • Ability to upgrade the system and also the auto update program.
  • A code that doesn't need change when used by different systems and could be compiled in a library.

How it works

In the program that you want to be auto updateable, you just need to call the AutoUpdate function in the Main procedure. The AutoUpdate function will check the version with the one read from a file located in a web site. If the program version is lower than the one read the program downloads the auto update program and launches it and the function returns True, which means that an auto update will run and the current program should be closed. The auto update program receives several parameters from the program to be updated and performs the auto update necessary and after that launches the updated system.

The code

The auto update program

This is the code for the auto update program. The program is a windowless application with only one Main procedure. Here the only change that needs to be made is the error message at the end:

Imports System.IO
Imports System.Net

Module Main

    Public Sub Main()
        Dim ExeFile As String ' the program that called the auto update
        Dim RemoteUri As String ' the web location of the files
        Dim Files() As String ' the list of files to be updated
        Dim Key As String ' the key used by the program when called back 
                          ' to know that the program was launched by the 
                          ' Auto Update program
        Dim CommandLine As String ' the command line passed to the original 
                                  ' program if is the case
        Dim myWebClient As New WebClient ' the web client
            ' Get the parameters sent by the application
            Dim param() As String = Split(Microsoft.VisualBasic.Command(), "|")
            ExeFile = param(0)
            RemoteUri = param(1)
            ' the files to be updated should be separeted by "?"
            Files = Split(param(2), "?") 
            Key = param(3)
            CommandLine = param(4)
        Catch ex As Exception
            ' if the parameters wasn't right just terminate the program
            ' this will happen if the program wasn't called by the system 
            ' to be updated
            Exit Sub
        End Try
            ' Process each file 
            For i As Integer = 0 To Files.Length - 1
                    ' try to rename the current file before download the new one
                    ' this is a good procedure since the file can be in use
                    File.Move(Application.StartupPath & "\" & Files(i), _
                        Application.StartupPath & "\" & _
                        Now.TimeOfDay.TotalMilliseconds & ".old")
                Catch ex As Exception
                End Try
                ' download the new version
                myWebClient.DownloadFile(RemoteUri & Files(i), _
                    Application.StartupPath & "\" & Files(i))
            ' Call back the system with the original command line 
            ' with the key at the end
            System.Diagnostics.Process.Start(ExeFile, CommandLine & Key)
            ' do some clean up -  delete all .old files (if possible) 
            ' in the current directory
            ' if some file stays it will be cleaned next time
            Dim S As String = Dir(Application.StartupPath & "\*.old")
            Do While S <> ""
                    File.Delete(Application.StartupPath & "\" & S)
                Catch ex As Exception
                End Try
                S = Dir()
        Catch ex As Exception
            ' something went wrong... 
            MsgBox("There was a problem runing the Auto Update." & vbCr & _
                "Please Contact [contact info]" & vbCr & ex.Message, _ 
        End Try
    End Sub
End Module

The auto update class/function

This is the class with the AutoUpdate function that checks if an update is needed. This can be directly copied to your code or can be in a library (DLL). If it's on your code, doesn't need to be a class.

This function receives a parameter by reference, the command line passed to the program, and can be the original command line or the one passed by the Auto Update program. If it was sent by the Auto Update program, the Key will be cleaned from the command line, so you must use the returned parameter instead of the original command line.

Here you need to change the RemotePath variable to point to your update web folder and the error message at the end:

Public Class AutoUpdate

    Public Function AutoUpdate(ByRef CommandLine As String) As Boolean
        Dim Key As String = "&**#@!" ' any unique sequence of characters
        ' the file with the update information
        Dim sfile As String = "update.dat" 
        ' the Assembly name 
        Dim AssemblyName As String = _
        ' here you need to change the web address 
        Dim RemotePath As String = _
            "http://[the web address for the update folder root]/"
        ' where are the files for a specific system
        Dim RemoteUri As String = RemotePath & AssemblyName & "/"

        ' clean up the command line getting rid of the key
        CommandLine = Replace(Microsoft.VisualBasic.Command(), Key, "")
        ' Verify if was called by the autoupdate
        If InStr(Microsoft.VisualBasic.Command(), Key) > 0 Then
                ' try to delete the AutoUpdate program, 
                ' since it is not needed anymore
                            Application.StartupPath & "\autoupdate.exe")
            Catch ex As Exception
            End Try
            ' return false means that no update is needed
            Return False
            ' was called by the user
            Dim ret As Boolean = False ' Default - no update needed
                Dim myWebClient As New System.Net.WebClient 'the webclient
                ' Download the update info file to the memory, 
                ' read and close the stream
                Dim file As New System.IO.StreamReader( _
                    myWebClient.OpenRead(RemoteUri & sfile))               
                Dim Contents As String = file.ReadToEnd()
                ' if something was read
                If Contents <> "" Then
                    ' Break the contents 
                    Dim x() As String = Split(Contents, "|")
                    ' the first parameter is the version. if it's 
                    ' greater then the current version starts the 
                    ' update process
                    If x(0) > Application.ProductVersion Then
                        ' assembly the parameter to be passed to the auto 
                        ' update program
                        ' x(1) is the files that need to be 
                        ' updated separated by "?"
                        Dim arg As String = Application.ExecutablePath & "|" & _
                                    RemoteUri & "|" & x(1) & "|" & Key & "|" & _
                        ' Download the auto update program to the application 
                        ' path, so you always have the last version runing
                        myWebClient.DownloadFile(RemotePath & "autoupdate.exe", _
                            Application.StartupPath & "\autoupdate.exe")
                        ' Call the auto update program with all the parameters
                        System.Diagnostics.Process.Start( _
                            Application.StartupPath & "\autoupdate.exe", arg)
                        ' return true - auto update in progress
                        ret = True 
                    End If
                End If
            Catch ex As Exception
                ' if there is an error return true, 
                ' what means that the application
                ' should be closed
                ret = True 
                ' something went wrong... 
                MsgBox("There was a problem runing the Auto Update." & vbCr & _
                    "Please Contact [contact info]" & vbCr & ex.Message, _
            End Try
            Return ret
        End If
    End Function
End Class

The auto update web folder

The auto update web folder should have a folder for each system you want to upgrade. The root folder is the one that you will refer on the RemotePath variable. The AutoUpdate.exe program should be on this folder. Each subfolder should be named as the assembly name (normally the program name without the extension). Inside the program folder you save the files that you want to update and the file update.dat with the last file version and the files that you want to update. The first parameter is the version and the second parameter separated by a "|" are the files that you want to update, which are separated by "?" as follows:


Using the code

Well, now to use the code is very simple. In the application where you want to enable the auto update, just call the AutoUpdate function. You must declare a variable CommandLine that will hold the arguments passed to the program and use it, if you need, instead of the Microsoft.VisualBasic.Command() function.

' The variable with the command line (to replace the
' Microsoft.VisualBasic.Command() function)
Public CommandLine As String

Public Sub Main()
    ' if you are using class create it
    Dim MyAutoUpdate As New AutoUpdate
    ' test if an update is needed and quit the program if so.
    If MyAutoUpdate.AutoUpdate(CommandLine) Then Exit Sub
    ' here goes your regular code in the main sub
End Sub

Points of interest

This auto update was written with the intention to always check for a new version, since the application involved can have problems if it runs in an old version. It guarantees that everyone who is using the application is running the latest version. This can be easily changed to update if something is available but don’t crash if it’s not.

This program works fine for small sized programs and a few files. If you need to download large files I suggest you to open a splash screen and give a message to the user that something is happening.


  • The original command line can't have the character "|", since it is used as a delimiter in the Auto Update program.
  • The user must have permission to write files in the application install folder.
  • The main program should use the variable CommandLine instead of the original command line, since it can have the key attached to it.


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Eduardo Oliveira
Software Developer (Senior)
Canada Canada
Eduardo Oliveira graduated in Computer Systems Analysis in Rio de Janeiro - Brazil in 1990.
He has been working as Programmer Analyst since.
In 2001 immigrated to Canada and today lives in Calgary and works with .NET and SQL server, developing desktop and web applications.

You may also be interested in...


Comments and Discussions

GeneralMy vote of 5 Pin
gagatau29-Aug-17 22:18
membergagatau29-Aug-17 22:18 
QuestionCongratulations!!! Pin
Member 26263325-Feb-16 2:53
memberMember 26263325-Feb-16 2:53 
GeneralApplication Auto Update in VB.NET Pin
Nikunj Kacha7-Apr-14 7:37
memberNikunj Kacha7-Apr-14 7:37 
Questionhow to use Application Auto Update in VB.NET ?? Pin
Member 1053715120-Jan-14 16:05
memberMember 1053715120-Jan-14 16:05 
AnswerRe: how to use Application Auto Update in VB.NET ?? Pin
Member 1163686023-Apr-15 7:16
memberMember 1163686023-Apr-15 7:16 
GeneralMy vote of 5 Pin
VitorHugoGarcia8-Feb-13 3:47
memberVitorHugoGarcia8-Feb-13 3:47 
QuestionHow to create this .dat file and autoexec Pin
waqarkayani21-Jan-13 2:30
memberwaqarkayani21-Jan-13 2:30 
GeneralMy vote of 1 Pin
hghhhhghg22-Dec-11 7:34
memberhghhhhghg22-Dec-11 7:34 
GeneralMy vote of 4 Pin
bhavik.vaishnani17-May-11 17:38
memberbhavik.vaishnani17-May-11 17:38 
GeneralUnable to locate application file 'Autoupdater.msi'. Pin
rowter17-Sep-10 6:43
memberrowter17-Sep-10 6:43 
GeneralPerfect! Pin
darksauft8-Jun-09 14:51
memberdarksauft8-Jun-09 14:51 
Generalautoupdate file Pin
ngoc thuy13-May-09 21:14
memberngoc thuy13-May-09 21:14 
Questionbut how do i update database Pin
k550i21-Feb-09 4:49
memberk550i21-Feb-09 4:49 
GeneralGood Pin
ammar7923-Jan-09 21:34
memberammar7923-Jan-09 21:34 
GeneralPretty Cool,, but Pin
melvin19746-Oct-08 9:38
membermelvin19746-Oct-08 9:38 
AnswerRe: Pretty Cool,, but Pin
darksauft8-Jun-09 14:47
memberdarksauft8-Jun-09 14:47 
QuestionHow to start this Pin
andyd2738-Sep-08 5:15
memberandyd2738-Sep-08 5:15 
AnswerRe: How to start this Pin
Eduardo Oliveira8-Sep-08 11:41
memberEduardo Oliveira8-Sep-08 11:41 
GeneralRe: How to start this Pin
andyd27310-Sep-08 4:48
memberandyd27310-Sep-08 4:48 
QuestionStandard user and permissions Pin
CBFlo22-Jul-08 4:01
memberCBFlo22-Jul-08 4:01 
GeneralInternet Pin
kclark5824-Mar-08 5:24
memberkclark5824-Mar-08 5:24 
AnswerRe: Internet Pin
darksauft8-Jun-09 14:54
memberdarksauft8-Jun-09 14:54 
Question(404) not found Pin
Lolkereltje26-Dec-07 6:38
memberLolkereltje26-Dec-07 6:38 
Generalserver requirement Pin
robin1smart11-Jul-07 5:45
memberrobin1smart11-Jul-07 5:45 
AnswerRe: server requirement Pin
darksauft8-Jun-09 14:52
memberdarksauft8-Jun-09 14:52 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web01 | 2.8.180515.1 | Last Updated 19 Dec 2005
Article Copyright 2005 by Eduardo Oliveira
Everything else Copyright © CodeProject, 1999-2018
Layout: fixed | fluid