Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB6
Expertise: Intermediate
Dec 2, 2002

Retrieving (from a VB6 program) the installed versions of the .NET Framework

' Return a collection of strings that identify the installed versions of the 
' .NET Framework
' Note: this function require the EnumRegistryKeys and EnumRegistryValues 
' functions
' Example:
'   Dim version As Variant
'   For Each version In GetDotNetFrameworkVersions
'       Debug.Print version
'   Next
Function GetDotNetFrameworkVersions() As Collection
    Const HKEY_LOCAL_MACHINE = &H80000002
    Dim keyName As String
    keyName = "Software\Microsoft\.NETFramework\policy"

    Set GetDotNetFrameworkVersions = New Collection

    Dim versions As Collection, version As Variant
    ' get the collection of major.minor versions
    Set versions = EnumRegistryKeys(HKEY_LOCAL_MACHINE, keyName)
    
    Dim builds As Collection, build As Variant
    ' for each version, get the installed builds, and finally get the complete 
    ' version string
    For Each version In versions
        Set builds = EnumRegistryValues(HKEY_LOCAL_MACHINE, _
            keyName & "\" & version)
        For Each build In builds
            GetDotNetFrameworkVersions.Add (Mid(version, 2) & "." & build(0))
        Next
    Next
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date