Как перейти в окне проводника в другую папку

[Amost]

Помогите с кодом!!!
Вот открыто окно проводника.
Как перейти в этом же окне в другую папку имея полный путь к ней. Надо рассматривать случай, когда открыты еще и другие окна проводника, но выбрать тот который активен в данный момент.
Заранее БОЛЬШОЕ СПАСИБО!!!
Это все на VB 6.0
[Viper] :: Для редактирования сообщений пользуемся кнопкой Правка!

[awl100Alex]

Amost
Вот пример кода, который выполняет твою задачу...
Работает так: как только один из нескольких запускаемых или запущенных Проводников попадает в фокус, прога находит хэндл его поля адреса ввода пути и записывает туда новый путь (тот, что тебе нужен), а потом однократно посылает этому полю нажатие “ENTER”. Таким образом переключая в новый каталог. Все повторяется снова при потере и возобновлении фокуса.

Код: Выделить всё

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Const WM_SETTEXT = &HC
Const WM_SETFOCUS = &H7
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Const VK_RETURN = &HD
Private Declare Function GetForegroundWindow Lib "user32" () As Long 'Хэндл активного окна
Private Declare Function GetClassName Lib "user32" _
       Alias "GetClassNameA" (ByVal hwnd As Long, _
       ByVal lpClassName As String, _
       ByVal nMaxCount As Long) As Long
       
Private Function wndClassName(hwnd As Long) As String
'Получаем имя класса...
Dim s As String
Dim r&
s = String(128, " ")
r& = GetClassName(hwnd, s, 127)
wndClassName = StrZ(s)
End Function

Private Function StrZ(par As String) As String
'Фильтруем от лишних символов...
Dim nSize As Long, i As Long, Rez As String
nSize = Len(par)
i = InStr(1, par, Chr(0)) - 1
  If i > nSize Then i = nSize
  If i < 0 Then i = nSize
StrZ = Mid(par, 1, i)
End Function

Private Sub Timer1_Timer()
'Сканируем с интервалом в 1 сек.
Dim hText, hText1, hText2, hText3, hText4 As Long
  'Если активным окном выступил Проводник...
  If wndClassName(GetForegroundWindow) = "ExploreWClass" Then
  'Находим хэндл поля строки адреса перечислением родитель-потомок...
  hText = FindWindowEx(GetForegroundWindow, 0, "WorkerW", vbNullString)
  hText1 = FindWindowEx(hText, 0, "ReBarWindow32", vbNullString)
  hText2 = FindWindowEx(hText1, 0, "ComboBoxEx32", vbNullString)
  hText3 = FindWindowEx(hText2, 0, "ComboBox", vbNullString)
  hText4 = FindWindowEx(hText3, 0, "Edit", vbNullString) 'Хэндл поля строки адреса
  If Me.Tag <> hText Then 'Если хэндл окна НЕ повторяется, то...
   'Отправлем окну сообщение пути нового каталога и устанавливем фокус...
   SendMessage hText4, WM_SETTEXT, 0, ByVal "C:\Windows" 'Поставь здесь свой путь!
   SendMessage hText4, WM_SETFOCUS, 0, 0
   'Посылаем окну нажатие клавиши <ENTER>...
   SendMessage hText4, WM_KEYDOWN, VK_RETURN, 0
   SendMessage hText4, WM_KEYUP, VK_RETURN, 0
   Me.Tag = hText 'Запоминаем хэндл текущего окна Проводника
  End If
   Label1.Caption = "Окно найдено... Хэндл текущего активного проводника: " & hText
Else
  Me.Tag = 0 'Сброс значений...
  Label1.Caption = "Окно Проводника НЕ найдено. Хэндл текущего активного окна: " _
  & GetForegroundWindow
End If
End Sub

[Amost]

Спасибо-работает

[Хакер]

Считаю свои долгом заметить, что всё это очень криво и абсолютно неправильно (не в плане реализации, а в плане подхода).

Правильным будет использование Shell-интерфейсов.

[awl100Alex]

Считаю свои долгом заметить, что всё это очень криво и абсолютно неправильно (не в плане реализации, а в плане подхода).

Может быть... с точки зрения профи! Но я так думаю: если реализация задачи работает без ошибок и не грузит проц. - какая разница каким был подход.

[Хакер]

Огромная. Если грубо прикинуть, размером где-то с орбиту Юпитера.

[iGrok]

Огромная. Если грубо прикинуть, размером где-то с орбиту Юпитера.

awl100Alex, похоже, наш местный спец по black-кодингу..

[awl100Alex]

Правильным будет использование Shell-интерфейсов.

Если я тебя правильно понял, то...

Код: Выделить всё

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 VbAppWinStyle) As Long
Const SW_HIDE = 0
Const SW_MINIMIZE = 6
Const SW_RESTORE = 9
Const SW_SHOW = 5
Const SW_SHOWDEFAULT = 10
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOWNORMAL = 1

Private Sub Timer1_Timer()
Directory = "C:\windows\"
ShellExecute 0, "explore", Directory, "", "", SW_SHOWNOACTIVATE
End Sub

При условии, что...

Вот открыто окно проводника.
Как перейти в этом же окне в другую папку имея полный путь к ней.

Вопрос...
Дай мне такую константу nShowCmd при которой переход в Directory происходил бы в текущем окне Проводника?

[Хакер]

Ты меня неправильно понял. Речь шла о COM-интерфейса шелла, а не о его API-функциях.

[awl100Alex]

Таким?..
Rundll32.Exe Shell32.Dll, <entrypoint> <optional arguments>

[Хакер]

Ты читать не умеешь? Причём тут COM-интерфейсы, о которых я говорил?

[awl100Alex]

Хакер
Ты очень ловко научился прятаться за общими ПУСТЫМИ(!) фразами!
А ну-ка покажи нам высший пилотаж программирования – код реализации твоего интерфейса в студию плиз!

[Хакер]

Ты очень ловко научился прятаться за общими ПУСТЫМИ(!) фразами!

Вот наглость, а?
Я не намерен ради каждого незнайки приводить пример реализации. Это бы убило напрочь всё моё время, которого и так почти нет. Когда мне интересно, я могу и трактат написать. Мне интересно писать о том, о чём в принципе не пишется ни в какой документации.

Когда вопрос тривиальный (как этот, например, ответ на который находится банальным чтением документации), я могу только ткнуть вопрошающего носом в фразу, которую надо использовать для поиска правильного решения.

Лично меня поражает то, что находятся люди, которые, когда я говорю "Это полная ерунда, используй правильный способ" но ничего не пишу по поводу самого этого способа, допускают мысль о том, что я "слышал звон" о каком-то правильном способе, но не знаю самого способа (и поэтому о нём ничего не пишу).
Это абсолютно нормальная реакция, если встречаются два незнакомых человека, но я на этом форуме не вчера появился, чтобы подобное недоверие к моим словам можно было считать нормальным.

На свой код, медитируй над ним.

Код: Выделить всё

Sub OpenCRootDirInAllWindows()
    Dim wCollection As ShellWindows
    Set wCollection = New ShellWindows

    For Each br In wCollection
        br.Navigate2 "c:\"
    Next br
End Sub

[GDK]

Хакер
Ты очень ловко научился прятаться за общими ПУСТЫМИ(!) фразами!
А ну-ка покажи нам высший пилотаж программирования – код реализации твоего интерфейса в студию плиз!

Мог бы просто спросить чё это такое и где поискать и почитать и если не трудно код если сам ни х-а не вкуриваешь.

[awl100Alex]

Хакер
Ты как всегда в своем репертуаре: у тебя есть другая крайность – не договаривать, не дописывать, не досказывать. И правильно... времени то нет. У меня когда нет времени – просто и на форум не выхожу.

“Когда вопрос тривиальный (как этот, например, ответ на который находится банальным чтением документации)”

Ты забываешь, что эта самая документация есть не у всех кому не лень. Особенно у новичков. Она не раздается бесплатно в переходах метро, а может стоит немалую денюжку, да еще и в дефиците может быть, как ни странно это звучит в наше время. Так что, если у тебя в городе с этим проблем нет, то не равняй это на всех. На форумах обычно спрашивают: «подскажите...», «не знаете, где найти...», «помогите разобраться...». А ты им в ответ: «у меня нет времени – читай литературу!» Нафиг тогда вообще писать???

Лично меня поражает то, что находятся люди, которые, когда я говорю "Это полная ерунда, используй правильный способ" но ничего не пишу по поводу самого этого способа, допускают мысль о том, что я "слышал звон"...

“ничего не пишу по поводу самого этого способа” – вот именно по этому и допускают... Ты сам этому способствуешь.

«Это абсолютно нормальная реакция, если встречаются два незнакомых человека, но я на этом форуме не вчера появился, чтобы подобное недоверие к моим словам можно было считать нормальным.»

Лично я люблю людей-дела – это те, кто умеет доказывать свою правоту на деле, а не просто говорить: «ребята, вот что я вам скажу: это все фигня!». Вот если ты это докажешь альтернативным решением и оно будет действительно лучшим – я сниму перед тобой свою шляпу и сделаю официальное извинение.

[Хакер]

Ты как всегда в своем репертуаре: у тебя есть другая крайность – не договаривать, не дописывать, не досказывать.

Если человек имеет правильный ум, ему будет достаточно направления в нужную сторону. Если человек не способен догадаться и самостоятельно отыскать решение, пусть погибает от собственной тупости или ждёт кого-нибудь, вроде тебя, кто подскажет какую-нибудь неимоверную ахинею, но зато готовую.

Ты забываешь, что эта самая документация есть не у всех кому не лень.

Компьютер, руки, дом тоже есть не у всех, кому не лень. Фиговое оправдание нежелания читать документацию.

Особенно у новичков.

Потому что большинство из них пренебрегает читать документацию, поэтому и не исчет её.

Она не раздается бесплатно в переходах метро, а может стоит немалую денюжку, да еще и в дефиците может быть, как ни странно это звучит в наше время.

Компьютер и студия тоже не раздаются бесплатно. Тем не мене, если человек нашёл средства на компьютер, на среду разработки, значит, нашлись бы деньги и на документацию. Тем более, что документация встроена в студию.
Более того, msdn доступна через сеть.

Во-первых, ты не написал, что ShellWindows связан с shdocvw.dll (Microsoft Internet Controls).

ShellWindows — это публичный COM-класс. Где его реализация программиста волновать не должно.

Во-вторых, не написал, что этот код работает только в EXE-формате, иначе - Automation error! в объявлении New.

Чушь. Особенно слово "EXE-формат".

И в-третьих, предложенный тобою код ПОЛНОСТЬ(!) повторяет, что я написал выше с Function ShellExecute Lib "shell32.dll"...
Navigate2 создает(!) новый Проводник и открывает каталог “с:\”.

Этой грандиозной чушью автор показал, что дальнейшее продолжение с ним бесседы не имеет смысла.

[awl100Alex]

Да, извини, с двумя последними комментами согласен, исправляюсь...
Но в отношении первого... действительно был Automation error! а на другой машине уже нет, хотя и там и там один и тот же VB.

...автор показал, что дальнейшее продолжение с ним беседы не имеет смысла.

“автора” задрыгали на работе... отсюда ошибочный последний пост. Но прекращать беседу еще рановато.

Посмотри условие задачи и увидишь сам, что читать ты все-таки НЕ умеешь!
И прежде, чем говорить о “кривизне” кода, нужно еще доказать, что твой вариант менее “кривой”. Вернемся к условию задачи:

Вот открыто окно проводника.
Как перейти в этом же окне в другую папку имея полный путь к ней. Надо рассматривать случай, когда открыты еще и другие окна проводника, но выбрать тот который активен в данный момент.

Прочти внимательно, ВНИМАТЕЛЬНО(!) прочти последнюю фразу! То есть, тот, который в данный момент находится в фокусе! А не все подряд через For. И дай мне “ровный” код в котором именно это и будет реализовано.

[Хакер]

Сам гадай над решением задачи автора. Мне больше делать нечего — играть в твои игры?
Тот код, который я дал, это не решение проблемы автора. Это чтобы ты медитировал над правильным способом, избавляя свой разум от порочных практик и методик.

Тему закрываю.