programar - tutorial formularios vba excel

Forma independiente del idioma para obtener la carpeta "Mis documentos" en VBA Excel 2003

Question

Necesito una forma independiente de idioma para obtener la carpeta "Mis documentos" en VBA Excel 2003.

Lo que tengo:

Public Function MyDocsPath() As String
    MyDocsPath = Environ$("USERPROFILE") & "/My Documents/"
End Function

Debido a que el programa se utilizará en al menos 2 idiomas de MS Windows, y el nombre de "Mis documentos" cambiará para cada idioma.

¿Hay alguna forma, o debería intentar averiguar el lenguaje del sistema y ser específico?

Answer 1

Esto puede adaptarse a:

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

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

Aunque el nombre de la carpeta especial es MyDocuments, se refiere a la carpeta de documentos para varias versiones de Windows.