下のコードを実行すると、いくつも同じフォルダを表示しますが、同じフォルダが開いていれば
表示しない様にしたいのです。
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Call Shell("explorer " & "C:\tmp\", vbNormalFocus)
End Sub

> Private Declare Function ShellExecute Lib
ここで、API を宣言してはいますが、

> Private Sub Command1_Click()
>     Call Shell("explorer " & "C:\tmp\", vbNormalFocus)
> End Sub
その API が使われている様子がありませんが…。


> 同じフォルダが開いていれば表示しない様にしたいのです。
当方では、同じフォルダが複数開かれることは無く、
すでに開かれているフォルダがアクティブになるだけでした。

エクスプローラーの設定によるのかな…。

> > 同じフォルダが開いていれば表示しない様にしたいのです。
> 当方では、同じフォルダが複数開かれることは無く、
> すでに開かれているフォルダがアクティブになるだけでした。
>
> エクスプローラーの設定によるのかな…。

当方では複数開きました。

RunDll32.exe url.dll,FileProtocolHandler c:\temp
にすると一つでした。

> > エクスプローラーの設定によるのかな…。
>
> 当方では複数開きました。
>
> RunDll32.exe url.dll,FileProtocolHandler c:\temp
> にすると一つでした。

OS によるようです。
WindowsXP 　   複数開かない。
Windows Vista  複数開く(エクスプローラーの設定を変更しても変わらず)

VB6.0 風に書くなら　
Call Shell("RunDll32.exe url.dll, FileProtocolHandler c:\temp", vbNormalFocus)

元質問者 さん、質問される場合は、環境を書くようにしましょう。