CodeItBetter Programming Another VB Programming Blog

'System & API - How to Get all currently open IE and Explorer windows
'This requires a reference to Microsoft Internet Controls and to 
'Microsoft Shell Controls and Automation.

Option Explicit
 
Sub ListShellWindows()
'Get all currently open IE and Explorer windows
'For IE windows, get location. For WE windows, get path.

    Dim objShell As Shell
    Dim objIE As InternetExplorer
    Dim objExplorer As ShellFolderView
 
    Dim obj As Object
 
    Set objShell = New Shell
    For Each obj In objShell.Windows
        If TypeName(obj.Document) = "HTMLDocument" Then
            Set objIE = obj
            Debug.Print objIE.LocationURL
        Else
            Set objExplorer = obj.Document
            Debug.Print objExplorer.FocusedItem.Path
        End If
    Next obj
 
End Sub