Option Explicit
 
' benötigte API's für den Registry-Zugriff
Private Declare Function RegOpenKey Lib "advapi32.dll" _
  Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, _
  ByVal lpSubKey As String, _
  phkResult As Long) As Long
 
Private Declare Function RegQueryValueEx Lib "advapi32.dll" _
  Alias "RegQueryValueExA" ( _
  ByVal hKey As Long, _
  ByVal lpValueName As String, _
  ByVal lpReserved As Long, _
  lpType As Long, _
  lpData As Any, _
  lpcbData As Long) As Long
 
Private Declare Function RegCloseKey Lib "advapi32.dll" _
  (ByVal hKey As Long) As Long
 
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1

Public Function GetIEPath() As String
  ' Installationspfad des IE ermitteln
  Dim sPath As String
  Dim sKey As String
  Dim sBuffer As String
  Dim hKey As Long
  Dim lResult As Long
  Dim nSize As Long
 
  ' Hier befindet sich der Eintrag in der Registry
  sPath = "SOFTWARE\Classes\Applications\iexplore.exe\shell\open\command"
  sKey = ""
 
  ' Registry-Zweig öffnen
  If RegOpenKey(HKEY_LOCAL_MACHINE, sPath, hKey) = 0 Then
 
    ' Größe des Wertes ermitteln
    lResult = RegQueryValueEx(hKey, sKey, 0, _
      REG_SZ, ByVal 0, nSize)
 
    If lResult = 0 Then
      ' Wert auslesen
      sBuffer = String(nSize, Chr$(0))
      If RegQueryValueEx(hKey, sKey, 0, 0, _
        ByVal sBuffer, nSize) = 0 Then
 
        sBuffer = Replace(Left$(sBuffer, nSize), Chr$(34), "")
        GetIEPath = Left$(sBuffer, InStrRev(sBuffer, "\") - 1)
      End If
    End If
 
    ' Registry schließen
    RegCloseKey hKey
  End If
End Function

MsgBox GetIEPath()

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de