VBS: Distinguez entre Windows-Explorer et Internet-Explorer

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 

Il doit y avoir une meilleure façon de distinguer entre Windows-Explorer et Internet-Explorer.

J'apprécierais votre aide.


VBS: sélectionnez l'élément dans la dernière fenêtre active de Windows Explorer

Remplacer

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

avec

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