shell based on users install?

[smlrwd]

I am trying to have access call a program that is installed in the users directory. It is required that every user installs the program seperately (license).

This is what it looks like now.

Dim Apath As String
Dim retVal1
     Apath = "  " & strA
 
      retVal1 = Shell ("C:\Users\joe.blow\AppData\Local\Company\Software\the.exe", 1)
      Sleep 400

But how would I make it so that instead of it looking for joe blow's exe every time it looked for the current user's exe.

Any help would be appreciated.

 

[boblarson]

Re: shell based on users isntall?

I believe this should help.

 

[smlrwd]

Re: shell based on users isntall?

Thanks for the reference but I was lost with it.

This ended up working.

Shell (Environ("USERPROFILE") & "\AppData\Local\...", 1)