|
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 Get the path of a Windows application or an empty string if the application isn't registered this routine only works for those applications that register themselves under the registry key HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths You can use it to retrieve the path of all MSOffice apps, MS Access, SQl Server, Windows Dialer, and more, for example Run Excel in a maximized window Shell GetApplicationPath("EXCEL.EXE"), vbMaximizedFocus requires the GetRegistryValue function |