Независимый от языка способ получить папку "Мои документы" в VBA Excel 2003

Мне нужен независимый от языка способ получить папку "Мои документы" в VBA Excel 2003.

что у меня есть:

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

потому что программа будет использоваться по крайней мере в 2 Lang MS Windows, и имя "Мои Документы" изменяется для каждого языка.

есть ли способ, или я должен попытаться выяснить системный lang и стать конкретным?

19
excel excel-2003 vba

1 ответов

Это может одеть:

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

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

хотя имя специальной папки-MyDocuments, она ссылается на папку documents для нескольких версий Windows.

28