VBS: Selecionar item na última janela ativa do Windows Explorer

Question

Eu uso o seguinte código para selecionar um arquivo em uma janela do Windows Explorer:

Set objShellAPP = CreateObject("Shell.Application")
objShellAPP.Open(WScript.Arguments(0))
WScript.Sleep(300)

On Error Resume Next        ' For new unsaved files.
With objShellAPP.Windows(objShellAPP.Windows.Count - 1).document
.SelectItem .Folder.Items.Item(WScript.Arguments(1)), 29
End With

Set objShellAPP = Nothing

objShellAPP.Open() abre a pasta na última janela ativa;

objShellAPP.Windows.Count - 1 não é necessariamente essa janela.

Como posso obter a última janela ativa para a linha With objShellAPP.Windows(---).document ?

Obrigado.

Veja:

Abrir e selecionar um arquivo em um Explorer existente janela

VBS: selecione um arquivo em uma pasta

    

Answer 1

No código a seguir, a primeira janela do Windows Explorer é ativada e, em seguida, uma pasta é aberta lá (eu uso QTTabbar ).

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

objShellApp.Open(WScript.Arguments(0))
WScript.Sleep(300)

If NOT WScript.Arguments(1) = "" Then
If winFolder = Empty Then
Set winFolder = objShellApp.Windows(objShellApp.Windows.Count - 1)      ' A Windows Explorer window opened with objShellApp.Open(WScript.Arguments(0)) is the last one in the index (Count - 1).
End If

On Error Resume Next        ' For new unsaved files.
With winFolder.document
.SelectItem .Folder.Items.Item(WScript.Arguments(1)), 29
End With
End If

Set winFolder = Nothing
Set objShellApp = Nothing

Quanto a uma maneira melhor de distinguir entre o Windows Explorer e o Internet Explorer:

VBS: Distinguis entre o Windows Explorer e o Internet Explorer