言語に依存しない方法2003

Question

私は私が持っているどのようなVBA Excelで2003

を「マイドキュメント」フォルダを取得するための言語に依存しない方法が必要になります。

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

このプログラムは少なくとも2 langのMS Windowsで使用され、各言語の「マイドキュメント」の名前が変更されるためです。

方法はありますか、またはシステムランクを把握して特定する必要がありますか？

Answer 1

これが合うことがあります。

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

から：特別なフォルダ名はマイドキュメントですがhttp://msdn.microsoft.com/en-us/library/0ea7b5xe.aspx

、それはいくつかのバージョンのWindows用のドキュメントフォルダを指します。