Help Edit the code Open the program by the link

[Excelpromax123]

Hello everyone. I need help how to fix the below code to open Google Drive program when the path changes frequently
C:\Program Files\Google\Drive File Stream and GoogleDriveFS.exe : Stand still
50.0.11.0 : Usually change

I want to fix it, if I change the path at 50.0.11.0 , the code will still run . Or can you advise me a code that opens a program regardless of the path. Thank you very much

Sub openprogram()
On Error Resume Next
   Dim Shex As Object
   Set Shex = CreateObject("Shell.Application")
   tgtfile = "C:\Program Files\Google\Drive File Stream\50.0.11.0\GoogleDriveFS.exe" ' address
   Shex.Open (tgtfile)
   MsgBox ("run")
End Sub

 

[bobsan42]

why is it changing? what is changing it?

 

[bobsan42]

There is a similar discussion here:
Code to open a program by name
This will at least show you how to capture the cmd output.
There are more discussions on this topic everywhere.
You can use this CMD to get the actual path to the file:

dir "C:\Program Files\Google\Drive File Stream\*GoogleDriveFS.exe" /s /b /a:-d

 

[Excelpromax123]

There is a similar discussion here:
Code to open a program by name
This will at least show you how to capture the cmd output.
There are more discussions on this topic everywhere.
You can use this CMD to get the actual path to the file:

dir "C:\Program Files\Google\Drive File Stream\*GoogleDriveFS.exe" /s /b /a:-d

I would like to thank you. But I want the code to run completely automatically, no need to run CMD run the code first
can you provide me complete VBA code to open 1 program by program name regardless of path. Thanks

 

[Excelpromax123]

When google drive update new version it will change

why is it changing? what is changing it?

 

[bobsan42]

see if this works:

Sub test_a()
Dim exec
exec = Split(CreateObject("WScript.Shell").exec("CMD /C dir ""C:\Program Files\Google\Drive File Stream\*GoogleDriveFS.exe"" /s /b /a:-d").StdOut.ReadAll, vbCrLf)(0)
exec = Shell(exec, vbNormalFocus)
End Sub