VBS: различать Windows-Explorer и Internet-Explorer

Question

Set objShellApp = CreateObject("Shell.Application")
Dim winFolder
For Each wFolder In objShellApp.Windows
On Error Resume Next
isFolder = wFolder.document.folder  ' An IE window does not support ".document.folder". We get the first Windows Explorer window.
If Err = 0 Then
wFolder.Visible = True
Set winFolder = wFolder
Exit For
End If
Next

Должен быть лучший способ различать Windows-Explorer и Internet-Explorer.

Буду признателен за вашу помощь.

---

VBS: выберите элемент в последнем активном окне Windows Explorer

Answer 1

замещать

On Error Resume Next
isFolder = wFolder.document.folder
If Err = 0 Then

с

If(wFolder.FullName = "C:\Windows\Explorer.EXE") Then