Binaryworld - InternetExplorerPath - Test whether IE is installed and retrieve its p ... [ VB -> Internet ]

' get the IE installation path, or a null string if it isn't installed
'
' NOTE: requires the GetRegistryValue routine

Function InternetExplorerPath() As String
  Const HKEY_LOCAL_MACHINE = &H80000002
  ' get the path from the registry, or return a null string
  InternetExplorerPath = GetRegistryValue(HKEY_LOCAL_MACHINE, _
    "Software\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", _
    "Path")
  ' get rid of the trailing semi-colon, if there
  If Right$(InternetExplorerPath, 1) = ";" Then
    InternetExplorerPath = Left$(InternetExplorerPath, _
      Len(InternetExplorerPath) - 1)
  End If

End Function