> Dim hwnd = FindWindow("CabinetWClass", "Windows")
Explorer の設定「タイトルバーに完全なパスを表示する」の設定によって、
タイトルが "C:\Windows" になることもあれば "Windows" になることもあります。

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\FullPath

タイトルからウィンドウを探る方法のほか、ShellWindows コレクションから
ウィンドウハンドルを拾う方法もありますね。

'VBA 

Dim oExp As Object

For Each oExp In GetObject("new:9BA05972-F6A8-11CF-A442-00A0C90A8F39")

    Debug.Print "HWND: 0x"; Hex(oExp.Hwnd)

    Debug.Print "Location:"; oExp.Top, oExp.Left, oExp.Width, oExp.Height

    If TypeName(oExp.Document) Like "IShellFolderView*" Then

        'Debug.Print oExp.LocationURL 

        Debug.Print "Path:"; oExp.Document.Folder.Items().Item.Path

        Debug.Print "Name:"; oExp.Document.Folder.Items().Item.Name

    End If

    Debug.Print

Next