如何在不使用用户名的情况下通过vba打开windows文件夹？

Sub OpenFolder()
    Dim folderPath As String
    folderPath = "C:\Path\to\your\folder" ' 替换为你要打开的文件夹路径
    
    Dim shellApp As Object
    Set shellApp = CreateObject("Shell.Application")
    
    shellApp.Open folderPath
End Sub