PathWin

Const HKEY_LOCAL_MACHINE = &H80000002
Function GetApplicationPath(ByVal ExeName As String) As String
GetApplicationPath = GetRegistryValue(HKEY_LOCAL_MACHINE, _
"Software\Microsoft\Windows\CurrentVersion\App Paths\" & ExeName, "")
End Function