独立于语言的方式来获取VBA Excel 2003中的“我的文档”文件夹

我需要一种独立于语言的方式来获取VBA Excel 2003中的“我的文档”文件夹。

我拥有的：

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

因为该程序将在至less2个语言的Windows中使用，并且每个语言的“我的文档”名称都会更改。

有没有办法，或者我应该试图找出系统郎并变得具体？

Answer 1

这可能适合：

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

来自： http : //msdn.microsoft.com/en-us/library/0ea7b5xe.aspx

尽pipe特殊文件夹名称是MyDocuments，它指的是多个Windows版本的文档文件夹。