Get the path of the installed WhatsApp software

[YasserKhalil]

Hello everyone
I am trying to find the path of the WhatsApp software and I have found the following code but doesn't work for WhatsApp

#If Win64 Then
    Declare PtrSafe Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
        (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#Else
    Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
        (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#End If

Const SYS_OUT_OF_MEM        As Long = &H0
Const ERROR_FILE_NOT_FOUND  As Long = &H2
Const ERROR_PATH_NOT_FOUND  As Long = &H3
Const ERROR_BAD_FORMAT      As Long = &HB
Const NO_ASSOC_FILE         As Long = &H1F
Const MIN_SUCCESS_LNG       As Long = &H20
Const MAX_PATH              As Long = &H104

Const USR_NULL              As String = "NULL"
Const S_DIR                 As String = "C:\"


Function GetInstallDirectory(ByVal usProgName As String) As String

    Dim fRetPath As String * MAX_PATH
    Dim fRetLng As Long

    fRetLng = FindExecutable(usProgName, S_DIR, fRetPath)

    If fRetLng >= MIN_SUCCESS_LNG Then
        GetInstallDirectory = Left$(Trim$(fRetPath), InStrRev(Trim$(fRetPath), "\"))
    End If

End Function

Sub ExampleUse()

Dim x As String

x = "excel.exe"

Debug.Print GetInstallDirectory(x)

End Sub

 

[YasserKhalil]

Any help in this topic, please?

 

[YasserKhalil]

Any ideas experts ..?

 

[YasserKhalil]

Posted here too

Get the path of the installed WhatsApp software - Eileen's Lounge

 

[Jaafar Tribak]

Hi Yasserkhalil,

Did you ever find a solution to this ?

By the way, FindExecutable expects the full file path of a data file in its first argument not an executable name.

 

[YasserKhalil]

This code works fine for me

Sub Test()
    Dim WSHShell As Object, sPath As String
    Set WSHShell = CreateObject("WScript.Shell")
    sPath = WSHShell.RegRead("HKEY_CLASSES_ROOT\WhatsApp\Shell\Open\Command\")
    Debug.Print sPath
End Sub

But I welcome any other solutions