[Окна, Диалоги] Открыть папку в том же окне

[Andrew24]

Добрый день.
Подскажите пожалуйста как можно открыть папку, которая находится рядом со скриптом в том самом окне, откуда запущен скрипт!

Run('Explorer.exe D:\test')

и

ShellExecute('D:\test')

открывают в новом окне.

 

[vcomp71]

В том же самом окне - это как???

 

[C2H5OH]

Vlasssov,
Он хочет функцию, такую как _IEnavigate,
но не для IE, а для Explorer.exe

 

[Andrew24]

В том же самом окне - это как???

Чтоб папка открывалась как будто просто нажимаешь "Открыть" правой кнопкой мыши.

 

[C2H5OH]

И мой вариант

$path = "C:\Documents and Settings\...\Мои документы\Мои рисунки"
Run("Explorer.exe " & $path)
$directory = StringSplit($path,"\")
$name = $directory[$directory[0]]
Sleep(5000)
ControlSend($name,"", "[CLASS:Edit; INSTANCE:1]","{END}")
ControlSend($name,"", "[CLASS:Edit; INSTANCE:1]","\Фандиков" & @CRLF)

И это я ещё трезвый...

 

[Andrew24]

Оба способа не работают(

 

[madmasles]

Andrew24,
У меня на XP работает.

#include <WinAPIEx.au3>
;без проверок на ошибки
$sNewPath = @ProgramFilesDir

$h_Wnd = WinGetHandle('[REGEXPCLASS:(Explore|Cabinet)WClass]')
If Not $h_Wnd Then Exit -3
WinActivate($h_Wnd)
If Not WinWaitActive($h_Wnd, '', 3) Then Exit -4
$o_ShellApp = ObjCreate('Shell.Application')
$o_ShellApp_Windows = $o_ShellApp.Windows()
For $o_ShellApp_Inst In $o_ShellApp_Windows
	If $o_ShellApp_Inst.hwnd = $h_Wnd Then ExitLoop
Next
$s_ShellApp_Inst_LocationURL = $o_ShellApp_Inst.LocationURL
ConsoleWrite($s_ShellApp_Inst_LocationURL & @LF)
ConsoleWrite(_WinAPI_PathCreateFromUrl($s_ShellApp_Inst_LocationURL) & @LF)
$o_ShellApp_Inst.navigate(_WinAPI_UrlCreateFromPath($sNewPath))

Проверил, и на 7 тоже.

 

[inververs]

madmasles
Где можно узнать про все свойства и методы Shell.Application.
Может у вас есть какая нибудь книжечка по этому делу?

 

[madmasles]

inververs [?]

Где можно узнать про все свойства и методы Shell.Application. Может у вас есть какая нибудь книжечка по этому делу?

Книжки у меня, увы, нет, а почитать, ИМХО, лучше здесь: MSDN

 

[Andrew24]

madmasles, спасибо огромное) Именно то что хотел