Синхронная смена каталогов

[ingerard]

Flasher
Ошибка исчезла, но заходит только в папку на активной панели, на другой ничего не происходит. Хотя если открыть в двух панелях одинаковые пути, типа "c:\" и "c:\", то срабатывает нормально.

p.s. то есть работает только по точным путям кроме буквы диска, а надо чтоб на путь не смотрело.

[Flasher]

ingerard
А на TC x32 как?

[ingerard]

Flasher
А у меня только x32.

[Flasher]

ingerard
А система?

[ingerard]

Flasher
Win7 x64.

[Flasher]

ingerard
[s]Проблема в GetTrgPath/SetTrgPath на x64, по-видимому.[/s]
Добавлено спустя 16 минут:

А как дела обстоят с выходом?

[ingerard]

Flasher
Печально, может можно другим приложением решить задачу? Типа TCFS...

А как дела обстоят с выходом?

С ним кстати все нормально.

[Flasher]

ingerard
Можно, конечно. Чуть позже выложу с правками. Слегка занят.

С ним кстати все нормально.

Хорошо.

но заходит только в папку на активной панели, на другой ничего не происходит.

Забыл спросить. А одноимённая папка в другой панели точно имелась?

то есть работает только по точным путям кроме буквы диска, а надо чтоб на путь не смотрело

Или кто-то случайно использовал первый вариант.

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

'============================= VBS =============================
' Синхронное открытие одноимённых каталогов/архивов в панелях ТС
' Условие: требуется TCScript.dll
' Ключ запрета несинхронного открытия: /n
'========================= Путь к TCFS2 ========================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSS = CreateObject("WScript.Shell")
With CreateObject("TCScript.Helper")
  .Pause = 0 : .Wait = True : .LockTC True
  SP = .GetSrcPath : TP = .GetInfo("TP") : N = .GetInfo("SN")
  If .GetInfo("SN") = ".." Then
    If FSO.GetFileName(SP) = FSO.GetFileName(TP) Then
      If FSO.FolderExists("\\?" & SP) Then
        For i = 0 To 1 : .SendCommand 2002, 1 : .SendCommand 4006, 1 : Next
      ElseIf FSO.FileExists("\\?" & Left(SP, Len(SP) - 1)) Then
        WSS.Exec TCFS2 & " /ef ""tcd(`" & SP & ":`,`" & TP & ":`,S)"""
      End If
    End If
  ElseIf FSO.FolderExists("\\?" & SP & N) Then
    If WSH.Arguments.Named.Exists("n") Then _
    If Not FSO.FolderExists("\\?" & TP & N) Then WSH.Quit
    WSS.Exec TCFS2 & " /ef ""tcd(`" & SP & N & "`,`" & TP & N & "`,S)"""
  End If : .LockTC False
End With : Set FSO = Nothing

[ingerard]

Забыл спросить. А одноимённая папка в другой панели точно имелась?

Да, конечно.

Или кто-то случайно использовал первый вариант.

Нет, пробовал второй вариант. Только что снова проверил второй вариант, якобы с x64 не работает, так вот если открывать папки с разных дисков и сохранять идентичность путей, то работает. Может дело в другом?

Для наглядности гифка: https://i.imgur.com/vDXwwXp.gifv

Третий скрипт работает, тестирую, пока что нашел баг в параметре /n, он работает наоборот, в одинаковые не заходит.

[Flasher]

Может дело в другом?

Может. См. теперь.
Последний тоже поправил, но ключ я проверял, такой проблемы не было.

[ingerard]

Flasher
Супер, второй работает и третий, тестирую что быстрее

Теперь такой вопрос, можно ли сделать какую-то кнопку, при нажатии которой назначался этот скрипт, на клавишу "Enter"?

[Flasher]

тестирую что быстрее

Второй должен быть побыстрее.

Кнопку как опцию что ли? Т. е. вкл./выкл. назначение в ТС этой команды на ENTER?

[ingerard]

Кнопку как опцию что ли? Т. е. вкл./выкл. назначение в ТС этой команды на ENTER?

Да, нажимаю на кнопку и далее по клавише "Enter" работает скрипт. И еще как бы решить проблему "Backspace", не всегда удобно возвращать курсор на ".." и нажимать "Enter". Может сделать еще один параметр в скрипте, для отработки именно выхода из папки?

[Flasher]

ingerard
Ключ добавил.
Насчёт кнопки думаю. Либо писать резидентный скрипт на AHK наподобие этого. Либо тупо обновлять ключ ENTER секции Shortcuts в wincmd.ini.

[ingerard]

Ключ добавил.

Работает.

AHK это еще один лишний багаж, с которым могут быть проблемы с портативностью

Либо тупо обновлять ключ ENTER секции Shortcuts в wincmd.ini

Я подобное делал, только проблема заключается потребности перезагрузки ТК.