指定したフォルダーを最前面表示にする方法

Excel VBAを使って
D:\aaa\bbb\のフォルダーが
もし、開かれていなければ
最前面表示でこれを開き、

もし、既に開かれていればそのウインドウを最前面表示にするプログラムを
作りたいのですが
どのようにすれば良いでしょうか？

質問者からの補足コメント

• ありがとうございます。
  
  完璧でした。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/01/28 16:22

No.1 ベストアンサー 回答者： hallo-2007 回答日時： 2016/01/23 11:06

>もし、既に開かれていればそのウインドウを最前面表示にするプログラム

の動作も含めて

Sub ボタン1_Click()
CreateObject("Shell.Application").Open "D:\aaa\bbb\"
End Sub

でご希望の動作になりませんか？

No.2 回答者： kumatti_1 回答日時： 2016/01/23 13:15

https://gist.github.com/kumatti1/25c9118ba867784 …
既に回答が出されてますが、最前面がSetWindowPosのHWND_TOPMOSTを指すならご検討ください。