Total Commander

Batya писал(а):Тогда выходит, что 10-я бетка гючит

Batya писал(а):И что-то я не понял, что ты потом пытаешься скопировать и куда?

Batya писал(а):Идеальный вариант - распаковывать при помощи WinRar.

Batya писал(а):Тогда выходит, что 10-я бетка гючит

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

Batya писал(а):ОК. Понято. Никто и не требует от Хэлпера невозможного.

Batya писал(а):А зачем столько мучений? Зачем в TC открывать такой каталог?

Я уже объяснял: изначально мы находимся в правой панели - это содержимое архива; первый таб переводит нас в левую панель; если после этого запустить копирование (по команде Copy), то ТС запустит диалог "Добавление в архив" - он думает, что мы собираемся копировать файл в архив. Поэтому я сначала делаю так, чтобы правая панель содержала обычный каталог.

Option Explicit
Dim MyDir
'=== Каталог для распаковки: ===
MyDir = "C:\Interesting"
'===============================
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendKeystroke ("{Tab}")
TCS.SendCommand   ("cm_CopySamepanel")
TCS.SendKeystroke ("{HOME}" & MyDir & "\{Enter}")
TCS.SendCommand   ("cm_FocusRight")
TCS.LockTC False
Set TCS=Nothing
Wscript.Quit

Batya писал(а): Этот способ называется "через одно место".
Только не обижайся. Просто ты выбрал действительно, мягко говоря, "не самый простой путь".

Batya писал(а):... надо послать не команду "Копировать" (ты, вероятно, просто генеришь нажатие F5)...

Batya писал(а):... а послать команду "Копировать в текущий каталог" (Shift+F5). При этом никто тебе не запрещает сюда вставить путь (ограничение - каталог назначения уже должен существовать).

Batya писал(а):... укажи AlwaysCopyInBackground=1.