在VBA Excel 2003中获取"我的文档"文件夹的语言无关方式

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As LongPtr, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Boolean) As Boolean
#Else
    Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Boolean) As Boolean
#End If

Const CSIDL_MYDOCUMENTS = &H5

Function GetMyDocumentsPath() As String
    Dim strPath As String
    Dim fResult As Boolean
    
    strPath = Space$(260)
    fResult = SHGetSpecialFolderPath(0, strPath, CSIDL_MYDOCUMENTS, True)
    
    If fResult Then
        GetMyDocumentsPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1)
    Else
        GetMyDocumentsPath = ""
    End If
End Function