WScript.Shell SpecialFolders获取Default、MyDocuments返回空串问题

两个枚举值返回空是两个独立bug导致的：

• Default返回空是递归死循环+初始化失效
  你写在模块通用声明段的MyDefaultFolder = SpecialFolders.MyDocuments是无效代码：VBA不允许在过程/函数外部执行赋值逻辑，所以存储默认文件夹配置的模块级变量m_MyDefaultFolder默认初始值为0，对应枚举项SpecialFolders.None。
  同时逻辑写法错误造成递归：传入SpecialFolders.Default时，GetSpecialFolder会调用GetMyDefaultFolder，而GetMyDefaultFolder又反过来调用GetSpecialFolder。如果配置的默认文件夹就是Default，会直接触发栈溢出；如果是未初始化的None，会查询不存在的文件夹项，最终都返回空字符串。
• MyDocuments返回空是键名拼写错误
  WScript.Shell的SpecialFolders集合中，「我的文档」对应的键名是My Documents（中间带空格），不是你枚举里用的无空格MyDocuments。只要你m_SpecialFolderNames映射串里对应位置写的是无空格的名称，查询时就找不到对应项，直接返回空。
  你现在用的拼接Environ$("USERPROFILE") & "\Documents"的临时方案兼容性极差，中文系统、开启OneDrive文档同步、企业域环境做了文件夹重定向的场景下，我的文档根本不在这个位置，会直接取错路径。

1. 废弃手动维护m_SpecialFolderNames字符串映射的逻辑，避免拼写错误。
2. 重构Default分支逻辑，消除递归调用：Default本身是自定义配置项，不是系统真实存在的特殊文件夹，不要在核心路径获取函数里嵌套调用默认文件夹获取方法。
3. 把默认文件夹的初始化逻辑放到模块首次调用时执行，不要写在无法触发的通用声明段。
4. 优先调用Windows原生API SHGetFolderPath获取特殊文件夹路径，不需要依赖WScript.Shell对象，也不用记忆特殊文件夹的字符串键名，能直接读取系统真实配置的路径，哪怕文件夹被重定向到其他位置也能正确获取，兼容性远高于拼接环境变量的方案。

修复后的核心代码参考：

' API声明放在模块通用声明段
Private Declare Function SHGetFolderPath Lib "shfolder.dll" Alias "SHGetFolderPathA" ( _
    ByVal hwndOwner As Long, _
    ByVal nFolder As Long, _
    ByVal hToken As Long, _
    ByVal dwFlags As Long, _
    ByVal lpszPath As String) As Long

' 枚举值直接绑定系统标准CSIDL，不需要额外名称映射
Public Enum SpecialFolders
    [_First] = -1
    None = 0
    Default
    AllUsersDesktop = &H19
    AllUsersStartMenu = &H16
    AllUsersPrograms = &H17
    AllUsersStartup = &H18
    Desktop = &H0
    Favorites = &H6
    Fonts = &H14
    MyDocuments = &H5
    NetHood = &H13
    PrintHood = &H1B
    Programs = &H2
    Recent = &H8
    SendTo = &H9
    StartMenu = &HB
    Startup = &H7
    Templates = &H15
    [_Last] = Templates + 1
End Enum

Private m_MyDefaultFolder As SpecialFolders
Private m_Init As Boolean

' 模块首次调用时初始化默认配置
Private Sub Init()
    If m_Init Then Exit Sub
    m_MyDefaultFolder = SpecialFolders.MyDocuments
    m_Init = True
End Sub

Public Property Let MyDefaultFolder(eSpecialFolder As SpecialFolders)
    Init
    m_MyDefaultFolder = eSpecialFolder
End Property
Public Property Get MyDefaultFolder() As SpecialFolders
    Init
    MyDefaultFolder = m_MyDefaultFolder
End Property

' 统一路径获取函数
Public Function GetSpecialFolder(Optional eSpecialFolder As SpecialFolders = SpecialFolders.Default, _
                                 Optional bDebugging As Boolean = False) As String
    Dim sPath As String * 260
    Dim lRet As Long
    Dim targetFolder As SpecialFolders
    
    Init
    ' 单独处理Default配置，不触发递归
    If eSpecialFolder = SpecialFolders.Default Then
        targetFolder = m_MyDefaultFolder
    Else
        targetFolder = eSpecialFolder
    End If
    
    ' 无效枚举值直接返回空
    If targetFolder = SpecialFolders.None Or targetFolder <= SpecialFolders.[_First] Or targetFolder >= SpecialFolders.[_Last] Then
        GetSpecialFolder = ""
        Exit Function
    End If
    
    ' 调用API直接取系统真实路径
    lRet = SHGetFolderPath(0, targetFolder, 0, 0, sPath)
    If lRet = 0 Then
        GetSpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)
    Else
        GetSpecialFolder = ""
    End If
    
    If bDebugging Then
        Debug.Print CStr(eSpecialFolder); ",  '"; CStr(targetFolder); "',  '"; GetSpecialFolder; "'"
    End If
End Function

' 获取默认文件夹路径
Public Function GetMyDefaultFolder(Optional bDebugging As Boolean = False) As String
    Init
    GetMyDefaultFolder = GetSpecialFolder(SpecialFolders.Default, bDebugging)
End Function

' 其他文件夹获取方法示例，无需额外特殊逻辑
Public Function GetFontsFolder(Optional bDebugging As Boolean = False) As String
    GetFontsFolder = GetSpecialFolder(SpecialFolders.Fonts, bDebugging)
End Function

Public Function GetDesktopFolder(Optional bDebugging As Boolean = False) As String
    GetDesktopFolder = GetSpecialFolder(SpecialFolders.Desktop, bDebugging)
End Function

内容的提问来源于stack exchange，提问作者j2associates