Module1.bas

Option Explicit


Private Declare PtrSafe _
        Function SHGetDesktopFolder Lib "Shell32.dll" ( _
        ByRef ppshf As IUnknown) As Long
        
Private Declare PtrSafe _
        Function SHInvokeDefaultCommand Lib "shlwapi.dll" Alias "#279" ( _
        ByVal hWnd As LongPtr, _
        ByVal lpFolder As IUnknown, _
        ByVal lpApidl As Long) _
As Long

Private Declare PtrSafe Sub ILFree Lib "Shell32.dll" (ByVal pidl As Long)
Private Declare PtrSafe Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As LongPtr, ByVal nFolder As Long, ppidl As Any) As Long
Const CSIDL_PERSONAL = &H5

Sub hoge()

    Dim unk As IUnknown 'IShellFolder
    Dim pidl&, hr&
    SHGetSpecialFolderLocation 0, CSIDL_PERSONAL, pidl
    hr = SHGetDesktopFolder(unk)

    hr = SHInvokeDefaultCommand(0, unk, pidl)
    Debug.Print Hex$(hr)
    ILFree pidl



End Sub