My Documents Location 2

[lameid]

I have the issue of being able to manage monthly update files in an environment that I expect to change. The reasonable solution seemed to be to determinte the My Documents folder and work from there. After poking around google I found vbscript and converted it. Enjoy.

Function MyDocumentsFolder() As String
    'Returns the My Documents folder path (or at least in terms of environment variables
    Dim WshShell As Object
    Dim objEnv As Object
    Set WshShell = CreateObject("WScript.Shell")
    Set objEnv = WshShell.Environment("User")
    MyDocumentsFolder = WshShell.RegRead _ 
     ("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal")
    Set objEnv = Nothing
    Set WshShell = Nothing
End Function

 

[Remou]

Alternatively:

Const MyDocuments = &H5&  

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MyDocuments)

Set objFolderItem = objFolder.Self

MsgBox objFolderItem.Name & ": " & objFolderItem.Path

Here is a list of constants:

http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_higv.mspx?mfr=true

http://lessthandot.com