Групповое переименование одной кнопкой

[Sergiusnet]

Имеется несколько шаблонов для группового переименования, нужно вынести кнопки для каждого шаблона на панель инструментов и переименовывать все файлы в активной панели по соответствующему шаблону, без вызова дополнительного диалогового окна multirename. то есть только одной кнопкой, нажал и переименовалось.

[Avada]

Sergiusnet
Использование команды multirename имя_шаблона с последующим нажатием Enter (нажатие кнопки "Выполнить"), а затем Escape (закрытие окна инструмента). И окно всё равно фактически отображаться будет, только ненадолго. Вообще без вызова окна задача не решается.

[Sergiusnet]

про комманду multirename имя_шаблона знаю, но нужно именно чтобы без дополнительных нажатий, на то она и автоматизация, может быть возможно скриптом это организовать?

[Avada]

Sergiusnet
Скриптом — возможно. Прочитают специалисты — напишут. И в правила форума советую заглянуть. Ненужное цитирование удалено.

[sa]

Sergiusnet

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

'==================================================================
' Описание:    Выделить все файлы, вызвать пользовательскую команду 
'             и послать нажатия клавиш Enter и ESC
' Параметр:   Имя пользовательской команды
' Требования: Необходима регистрация WSH Helper for TC by Volniy
'==================================================================
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_SelectAllFiles"
TCS.UserCmd WScript.Arguments(0)
TCS.SendKeystroke "{Enter}"
TCS.SendKeystroke "{ESC}"
Set TCS = Nothing
Wscript.Quit

Вообще-то, нажатия из скрипта небезопасны.

[Sergiusnet]

не работает:(

[sa]

Кнопка:

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\VBS\MRT.vbs
em_MRT_XXX
wcmicons.dll,46
Выделить все файлы, вызвать команду em_MRT_XXX, нажать Enter и ESC


-1

[Вахмурка]

Здесь дискуссия на ту же тему.

[Avada]

Здесь дискуссия на ту же тему.

Совершенно верно. Поэтому текущую тему закрываю.