怎么获取EXE文件安装后的路径

如何获取EXE文件安装后的路径？
如何获取EXE文件安装后的路径？

[解决办法]
'从注册表中查找安装目录
s = GetKeyValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\安装的软件 ", "DisplayIcon ")
strtmp = Left(s, Len(s) - InStrRev(s, "\ ", -1))
[解决办法]
'WINRAR安装路径
Sub GetWINRARPath()
Dim WSH As Object
Set WSH = CreateObject( "Wscript.Shell ")
MsgBox "WINRAR安装路径： " & WSH.RegRead( "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path ")
End Sub


'EXCEL安装路径

Sub GetEXCELPath()
Dim WSH As Object
Set WSH = CreateObject( "Wscript.Shell ")
MsgBox "EXCEL安装路径： " & WSH.RegRead( "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE\Path ")
End Sub