指定したフォルダーを開いてファイルにフォーカスを合わせる方法

https://oshiete.goo.ne.jp/qa/9159489.html

このページで
Excel VBAを使って
D:\aaa\bbb\のフォルダーが
もし、開かれていなければ
最前面表示でこれを開き、
もし、既に開かれていればそのウインドウを最前面表示にするプログラム
の作り方を教えていただきました。

できればそれと同時に
そのフォルダー内のあるファイルにフォーカスを合わせたいのですが
どうすれば良いでしょうか？

http://www.accessclub.jp/bbs2/0135/beginter40526 …

このページにあるように
Call Shell("Explorer.exe /select,""" & 変数名 & """", vbNormalFocus)
を使えば、ファイルにフォーカスを合わせることができます。

しかし、フォルダーが新しく開いてしまいます。
もし既に開いている場合には、
新規に開かずに既に開かれているフォルダー内のファイルを選択しながら
最前面表示したいのですが
このようなことは可能でしょうか？

No.1 回答者： kumatti_1 回答日時： 2016/01/29 08:14

IShellDispatch.Openメソッドは参照を返す訳ではないので、何れにしても、IShellWindowsによる検索が必要でしょうね。

https://gist.github.com/kumatti1/2222dcaabf4f14b …