Open a program 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.

I've been to http://mvps.org/access/api/api0054.htm but those refferences don't make any sense to me.

Any help would be appreciated.

[MMcCarthy]

I've found that the only way around this problem traditionally is to install any files I want to be able to access in the All Users directory on the hard drive as opposed to any individual profile.

In other words access would be...

retVal1 = Shell ("C:\Users\All Users\AppData\Local\Company\Software\the.exe", 1)

Can't remember exactly what this looks like on Vista/W7 but you get the idea.

[NeoPa]

Try :

retVal1 = Shell(Environ("USERPROFILE") & "\AppData\Local\Company\Software\The.exe")

[NeoPa]

Of course, if the licensing allowed you to use the All Users' profile instead, you would be better off (using) :

retVal1 = Shell(Environ("ALLUSERSPROFILE") & "\AppData\Local\Company\Software\The.exe")