エクスプローラでのパス列挙

Module4.bas

Option Explicit
Sub hoge3()
    Dim o As Shell32.FolderItems3
    Dim v As Shell32.FolderItem2
    Dim Shl As Shell32.Shell
    Dim Win As InternetExplorer
    Const StrPath As String = "C:\Temp"
    Set Shl = New Shell32.Shell
    For Each Win In Shl.Windows
        If Win.FullName Like "*\Explorer.EXE" Then
            If Win.document.Folder.Self.Path = (StrPath) Then
                Set o = Win.document.Folder.Items
                Exit For
            End If
        End If
    Next
    For Each v In o
        ' Debug.Print TypeName(v)
        Debug.Print v.Path
    Next
End Sub