devxlogo

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

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'   NextFunction GetDotNetFrameworkVersions() As Collection    Const HKEY_LOCAL_MACHINE = &H80000002    Dim keyName As String    keyName = "SoftwareMicrosoft.NETFrameworkpolicy"    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    NextEnd Function

devx-admin

Share the Post: