Private Function GetItems() As Boolean
        On Error GoTo Ext
        Dim oIE As New Object
        Dim SH As Object
        Dim FV As Object
        Dim FI As Object
        Dim flag As Boolean
 
        SH = CreateObject("Shell.Application")
        For Me.i = 0 To SH.Windows.Count - 1
            oIE = SH.Windows(CInt(i))
            If TypeName(oIE.Document) = "IShellFolderViewDual2" then
                If oIE.hWnd = GetForegroundWindow Then
                    flag = True
                    Exit For
                End If
            End If
        Next i
        If flag Then
            FV = oIE.Document
            For Each FI In FV.SelectedItems
                File(i) = FI.Path
                i = i + 1
                GetItems = True
            Next FI
        End If
end function