Total Commander

[serhiy]

Пока дошел до следующего варианта :

1. Добавил в тотал скрипт

' File: UnpackHere.vbs
' Description: Распаковывает выделенные архивы в ту же директорию
' где расположены сами архивы, причем каждый архив в
' отдельную папку с именем, как у файла архива
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели TC

' Copyright: (c) 2005, Volniy

Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_UnpackFiles", False
TCS.SendKeystroke "{DELETE}"
TCS.SendKeystroke "{TAB 4}"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit


2. Открываю 2 тотала - в обоих нажимаю ctrl+B и ставлю фильтрацию по rar, zip, tar, gz

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

4. Повторяю действия 2-3 до тех пор пока по ctrl+B не останется ни одного архива.

5. Опять ctrl+B - ищу все файлы template.png - выделяю

6. Переименовываю при помощи тотала - групповое переименование + [=tc.Путь]

7. Опять ctrl+B все переименованые файлы копирую в отдельную папку - все остальное можно удалить.. до поры до времени не понадобится.

Долго однако.
Просьба помочь упростить хотя б такой вариант