Подтвердить что ты не робот

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

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

Что у меня:

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

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

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

4b9b3361

Ответ 1

Это может подойти:

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

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

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