linguaggio modo indipendente per ottenere "My Documents" cartella in VBA Excel 2003

Question

ho bisogno di un linguaggio modo indipendente per ottenere "My Documents" cartella in VBA di Excel 2003.

Quello che ho:

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

Poiché il programma verrà utilizzato in almeno 2 lang MS Windows e il nome "Documenti" cambia per ogni lingua.

C'è un modo, o dovrei provare a capire il sistema lang e diventare specifico?

Answer 1

Questo può soddisfare:

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

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

Anche se il nome della cartella speciale è MyDocuments, si fa riferimento alla cartella documenti per diverse versioni di Windows.