エクスプローラ起動

Module2.bas

Option Explicit

Private Declare PtrSafe Function ILCreateFromPathW Lib "Shell32.dll" (ByVal pszPath As LongPtr) As Long
Private Declare PtrSafe Function SHGetIDispatchForFolder Lib "shdocvw.dll" (ByVal pidl As Long, arg2 As Any) 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 pidl&, hr&
    'pidl = ILCreateFromPathW(StrPtr("C:\"))
    SHGetSpecialFolderLocation 0, CSIDL_PERSONAL, pidl
    
    Dim o As Object
    hr = SHGetIDispatchForFolder(pidl, o)
    Debug.Print TypeName(o), hr
    ILFree pidl
        
End Sub