Language independent way to get “My Documents” folder in VBA Excel 2003

Question

I need a Language independent way to get \"My Documents\" folder in VBA Excel 2003.

What I have:

Public Function MyDocsPath() As String
    MyDocsPat         


        

Answer 1

This may suit:

Set WshShell = CreateObject("WScript.Shell")
strDocuments = WshShell.SpecialFolders("MyDocuments")

From: http://msdn.microsoft.com/en-us/library/0ea7b5xe.aspx

Although the special folder name is MyDocuments, it refers to the documents folder for several versions of Windows.