Работа с Exlorer. Exe. Открыть окно проводника и выделить файл - VB

Формулировка задачи:

Собственно нужно: 1) открыть окно проводника и выделить файл 2) открыть папку Запускать отдельный процесс не надо У меня не выходит Некоторые варианты работают в среде, не работают в откомпилированном виде 4 варианта, все работают не так как надо

    
Shell "explorer.exe /n /e " & Chr(34) & PathToFolder & Chr(34), vbNormalFocus
Shell Environ("windir") & "\explorer.exe " & Chr(34) & PathToFolder & Chr(34), vbNormalFocus
 
Shell "cmd /c explorer " & Chr(34) & PathToFolder & Chr(34), vbHide
Shell "cmd /c explorer /select," & Chr(34) & PathToFolder & Chr(34), vbHide

инфу брал от сюдаhttp://support.microsoft.com/kb/314853http://forums.codeguru.com/showthrea...-SQL-statement

Решение задачи: «Работа с Exlorer. Exe. Открыть окно проводника и выделить файл»

textual
                            Листинг программы 
                        
                            sfile = Environ("windir") & "\system32\cmd.exe"
Shell "explorer /select,""" & sfile & """", vbNormalFocus