How to get current user folder in Windows XP? 2

[Werneck]

Hi

I need to export files to the My documents folder in Windows XP.

How to get the Windows user name to assemble the path string to its My documents folder (like the example bellow)?

C:\Documents and Settings\UserName\My documents

Thanks

 

[SeeJane]

Try this -

Dim strUser as String
Dim strpath as String

'Get Windows username
strUser = Environ("USERNAME&quot
'create string for path
strPath = "C:\Documents and Settings\" & strUser & "\My documents"

'do whatever with strPath

Good luck, CJ

 

[jrbarnett]

Hi,

It is all to easy to map the my documents directory to be outside the user profile in most versions of Windows. Instead, I would read the Personal key from within the following registry section:

HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

John

 

[Werneck]

Thanks, CJ and John, for the helpfull suggestions.
Cesar

 

[Werneck]

Hi

How do I get the string of the following register section in Acc97 vba code? Is there a simple code like using the Environ()?

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User

Thanks