Explorerのファイル選択

Module1.bas

Option Explicit

Private Declare Function ILCreateFromPathW& Lib "Shell32.dll" (ByVal pszPath&)
Private Declare Sub ILFree Lib "Shell32.dll" (ByVal pidl&)
Private Declare Function ILGetSize& Lib "Shell32.dll" (ByVal pidl&)
Private Declare _
        Function InitVariantFromBuffer Lib "propsys.dll" ( _
        ByVal pv As LongPtr, _
        ByVal cb As Long, _
        ByRef pvar As Variant _
      ) As Long
Private Declare PtrSafe Function SHGetIDispatchForFolder Lib "shdocvw.dll" (ByVal pidl As Long, arg2 As Any) As Long

Sub test()

    Dim obj As Object
    Dim IE As Object
    Dim tmp&, pidl&, v, strPath$, hr&, strFile$
    strPath = "D:\"
    strFile = "test.txt"

    'パスからアイテムIDリストへのポインタを得る
    pidl = ILCreateFromPathW(StrPtr(strPath))
    hr = InitVariantFromBuffer(pidl, ILGetSize(pidl), v)

    'Explorerをパスで検索
    Set IE = CreateObject("Shell.Application").Windows.findwindowSW(v, Empty, 1&, 0, 1&)

    If IE Is Nothing Then

        'Explorer起動
        hr = SHGetIDispatchForFolder(pidl, IE)
        IE.Visible = True
        While IE.busy Or IE.ReadyState <> 4
            DoEvents
        Wend
        
        'ファイル選択
        For Each v In IE.Document.Folder.Items
            If v.Name = strFile Then
                IE.Document.SelectItem v, 1
                Exit For
            End If
        Next
        
    Else
        While IE.busy Or IE.ReadyState <> 4
            DoEvents
        Wend
          
        '既に選択済みの要素を選択解除
        Set obj = IE.Document.FocusedItem
        If obj.Name <> strFile Then
            IE.Document.SelectItem obj, 0
        End If
        
        'ファイル選択
        For Each v In IE.Document.Folder.Items
            If v.Name = strFile Then
                IE.Document.SelectItem v, 1
                Exit For
            End If
        Next
        IE.Visible = True
        
    End If

    'pidl解放
    ILFree pidl

End Sub