Binaryworld - Retrieving (from a VB6 program) the installed versions of the .NET Fra ... [ VB.net -> .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