devxlogo

InternetExplorerPath – Test whether IE is installed and retreive its path

InternetExplorerPath – Test whether IE is installed and retreive its path

' get the IE installation path, or a null string if it isn't installed'' NOTE: requires the GetRegistryValue routineFunction InternetExplorerPath() As String    Const HKEY_LOCAL_MACHINE = &H80000002    ' get the path from the registry, or return a null string    InternetExplorerPath = GetRegistryValue(HKEY_LOCAL_MACHINE, _        "SoftwareMicrosoftWindowsCurrentVersionApp PathsIEXPLORE.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

devx-admin

Share the Post: