Solved Folder not open

[sergio vieira]

Good Morning. I have a pc asus On this PC I have a folder called "Backups", located in "My Documents". In an Access form I have the following command: Dim abre
abre = Shell("explorer.exe C:\Users\Documents\Backups", vbNormalFocus). However, I discovered that it only opens the folder if I use it like this: Dim abre
abre = Shell("explorer.exe C:\Users\asus\Documents\Backups", . My problem: What if I install the application on another computer that is not "asus", which variable should I use? I appreciate any help in advance. Thank you

 

[sonic8]

The environment variable UserProfile will give you the beginning of the path including the username.

Dim UserProfilePath as String
UserProfilePath = Environ("Userprofile")
Dim abre
abre = Shell("explorer.exe "  & UserProfilePath & "\Documents\Backups", vbNormalFocus)

 

[sergio vieira]

The environment variable UserProfile will give you the beginning of the path including the username.

Dim UserProfilePath as String
UserProfilePath = Environ("Userprofile")
Dim abre
abre = Shell("explorer.exe "  & UserProfilePath & "\Documents\Backups", vbNormalFocus)

Thank you Sonic8. Now is ok.

 

[sergio vieira]

Thank you Sonic8. Now is ok.