Compare File Versions

Category:

Files and Directories

Type:

Snippets

Difficulty:

Beginning

Author:

Vincil Bishop

Version Compatibility: Visual Basic 6

More information:

This function takes two file names and compares the version numbers assigned. The function then returns an integer depending on whether the version number of the first file or second file is greater, or if the two files are the same version

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

' *****************************************************************
' CompareFileVersion()
' Author: Vincil.Bishop@dhs.state.tx.us
' Date: 6/30/03
'
' This function compares the version numbers of two files and returns the following results:
' -1 = File Version 2 is greater than File Version 1
' 0 = Versions are the same
' 1 = File version 1 is greater than File Version 2
' ****************************************************************************************************

Public Function CompareFileVersion(strFileName1 As String, strFileName2 As String) As Integer

' Our result
    ' -1 = File Version 2 is greater than File Version 1
    ' 0 = Versions are the same
    ' 1 = File version 1 is greater than File Version 2
    Dim intResult
    
    Dim strFileVersion1
    Dim strFileVersion2
    Dim strAryFileVersion1() As String
    Dim strAryFileVersion2() As String
    
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' Let's initialize our result with 0
    intResult = 0
    
    strFileVersion1 = fs.getfileversion(strFileName1)
    strFileVersion2 = fs.getfileversion(strFileName2)
        
    'Split the two supplied file versions by the "." character
    strAryFileVersion1() = Split(strFileVersion1, ".")
    strAryFileVersion2() = Split(strFileVersion2, ".")
    
    For i = 0 To UBound(strAryFileVersion1())
                
        If strAryFileVersion1(i) > strAryFileVersion2(i) Then
        
            intResult = 1
                    
        ElseIf strAryFileVersion1(i) < strAryFileVersion2(i) Then
        
            intResult = -1
                    
        End If
               
        'If we have found that the result is not > or <, no need to proceed
        If intResult <> 0 Then Exit For
    
    Next
    
    If UBound(strAryFileVersion2) > UBound(strAryFileVersion1) _
    And strAryFileVersion2(UBound(strAryFileVersion2)) <> 0 Then intResult = -1
             
    CompareFileVersion = intResult
    
End Function