Język niezależny sposób, aby uzyskać „Moje dokumenty” w VBA Excel 2003

Question

Potrzebuję niezależnego Język sposób, aby uzyskać „Moje dokumenty” w VBA Excel 2003.

Co mam:

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

Ponieważ program będzie używany w co najmniej 2 językach MS Windows, a nazwa "Moje dokumenty" zmieni się dla każdego języka.

Czy jest jakiś sposób, czy powinienem spróbować wymyślić systemowy język i stać się konkretny?

Answer 1

ta może odpowiadać:

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

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

Chociaż specjalna nazwa folderu jest MyDocuments, odnosi się do folderu Dokumenty do kilku wersjach systemu Windows.