Bueno, modificando un poco el código, obtengo lo mismo con lo siguiente (solo he copiado una parte del code, para no hacer todo mas largo):
'hwnd = GetActiveWindow()
'If (hwnd = 0) Then hwnd = GetForegroundWindow()
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, App.Path)
SetForegroundWindow hwnd
SendKeys "{F4}", True
SendKeys "/" + CStr(App.EXEName) + "{ENTER}", True
Exit Sub
Este code funciona en Win 7 x64, pero no en XP. Para que funcione en XP hay que quitarle el string "/" al SendKeys.
Creo que esto es lo que quieres hacer, no?
En mi XP me funciona como dijiste, aunque me gustó más esto:
SendKeys "{TAB}{RIGHT}" & "\" & App.EXEName & "{ENTER}", True
Gracias por los que intentaron aportar más datos y entenderme ^^ Haré las cosas como lo tenía pensado, haciendolo compatible uno a uno cada explorador mediante SendMessage().
Gracias MCKSys y ya pude hacerlo con el XYplorer (mediante SendMessage) y es sumamente silencioso igual que con el explorer de windows.