Обмен кнопками

[Tol!k]

Обмен кнопками превратили в обсуждение темы обмена кнопками.
Batya, вместо того чтоб поддаваться на провокации, просто посылал бы новичков в соответствующую тему

[GGS]

Возможно ли сделать кнопку для группового переименования выделенных файлов с применением заранее выбранного (сохранённого ранее) шаблона переименования?
Как команде "cm_MultiRenameFiles" передать имя шаблона?

[Tol!k]

Как команде "cm_MultiRenameFiles" передать имя шаблона?

У Вахмурки есть скрипт для PowerPro

[Avada]

Возможно ли сделать кнопку для группового переименования выделенных файлов с применением заранее выбранного (сохранённого ранее) шаблона переименования?
Как команде "cm_MultiRenameFiles" передать имя шаблона?

Да, возможно, и в 7.50 это элементарно делается без всяких скриптов. Поскольку появилась новая внутренняя команда с параметрами как раз для этого.

12. MULTIRENAME открывает инструмент группового переименования с сохранёнными в указанном шаблоне переименования настройками.

Это перевод дописки в раздел про панель инструментов. Ну то есть MULTIRENAME имя_шаблона_переименования.

[D1P]

Ну то есть MULTIRENAME имя_шаблона_переименования

OW SHI~~~ сколько же оно мне времени сэкономило бы, если б сразу выполняло переименование, а не открывало MRT, где ещё ентер надо жать...
Или для этого тоже параметр найдётся?

[Scorpkoms]

Доброго времени!
На ТС 7.04 сделал кнопку перезагрузки ТС,работало,
потом спустя некоторое время вылетают вот такие ошибки:



Вчем может быть дело, TCWSHelpстоит,регестрирован.
На скринах разные пути,это в разное время куда ставил.

[AR74]

Использование функций Ashampoo UnInstaller с помощью кнопок панели инструмента Total Commander.
Ashampoo UnInstaller - программа инсталятор/деинсталятор, позволяющая поддерживать чистоту системы.
.
Я использую Ashampoo UnInstaller 1.0.
Но мне в ней не нравится:
1. Отсутствие сортировки отчетов-логфайлов *.ecl по времени установки.
2. То что она висит в трее.
3. То что там много чего лишнего, чего я не использую и мешает мне сосредоточится на нажатии нужной кнопки


Находим в help к Ashampoo UnInstaller информацию по Batch command line parameters. Внимательно читаем и На основании этого создаем три кнопки. Путь к Uninstaller.exe и к иконкам конечно же свои (я их вытащил из Uninstaller.exe и подредактировал, могу выслать кому надо). Еще я создаю папку [C:\Program Files\ashampoo\ECL save\] и указываю ее в настройках AU как "folder of logfile". Это чтоб не мучится с фильтрами для *.ecl в дефолтной save папке и чтобы по контекстному меню кнопки можно было перейти к списку *.ecl.


1) Сохранеие конфигурации. Просто сохраняет и выгружаеццо.

TOTALCMD#BAR#DATA
"C:\Program Files\Ashampoo\Ashampoo UnInstaller Platinum Suite\Uninstaller.exe"
/STORECONFIG
C:\totalcmd\icons\Bar_Icons\ashampoo\storeconfig.ico
STORECONFIG
C:\Program Files\ashampoo\ECL save\

-1


2) Сравнение конфигураций после установки новой программы,создание разностного ecl- файла. Встаем курсором на exe программы или на ее инсталлятор, если он имеет осмысленное имя и жмем на кнопку.В предлагаемом окошке-подтверждении названия файла отчета его (название) можно подредактировать. К сожалению параметр ?%O не позволяет передать имя папки программы, только имена файлов.
TOTALCMD#BAR#DATA
C:\Program Files\Ashampoo\Ashampoo UnInstaller Platinum Suite\Uninstaller.exe /COMPARE
?%O
C:\totalcmd\icons\Bar_Icons\ashampoo\compare.ico
COMPARE
C:\Program Files\Ashampoo\ECL save\

-1

3) Деинсталяция. Переходим по контекстному меню к папке сохранений, сортируем по времени создания или по названию, выбираем *.ecl и деинсталируем. Выгружаеццо опять же само.

TOTALCMD#BAR#DATA
C:\Program Files\Ashampoo\Ashampoo UnInstaller Platinum Suite\Uninstaller.exe /UNINSTALL
%P%N
C:\totalcmd\icons\Bar_Icons\ashampoo\uninstal.ico
UNINSTALL
C:\Program Files\ashampoo\ECL save\

-1



Недостаток - нелзя делать incremental compare. Может есть какая команда недокументированная или кто скрипт напишет?


Вот переделанные конки AU для total панели
ashampoo_total _ico.zip

[LocKtaR-o-DarK]

Scorpkoms
приводил бы чтоли скрипт, скринов маловато будет
держи скрипты на корректный рестарт тотала без участия хелпера
способ прикрутки выбирай по вкусу

[Scorpkoms]

Scorpkoms
приводил бы чтоли скрипт, скринов маловато будет
держи скрипты на корректный рестарт тотала без участия хелпера
способ прикрутки выбирай по вкусу

Спасибо,скрипт взят с RU.TCKB.chm вот он:

'Перезагрузка
Option Explicit
Dim TCS, WshShell, TCexe, Timeout, QuitByTimeOut
Set TCS = CreateObject("TCScript.Helper")
Set WshShell = WScript.CreateObject("WScript.Shell")
TCexe = """" & TCS.TCPath & "\totalcmd.exe"""
'Завершаем работу ТС
TCS.SendCommand "cm_Exit", True

'Ожидание завершения работы ТС
Timeout = 3000 ' Сколько ждать выключения в мсек
Do
Timeout = Timeout - 100
If Timeout < 0 Then QuitByTimeOut = True: Exit Do
WScript.Sleep 100
Loop While TCS.IsRunningTC

'Запускаем новый экземпляр программы
If Not QuitByTimeOut Then WshShell.Run TCexe

Set TCS = Nothing
Set WshShell = Nothing
WScript.Quit

[BezDNaU]

Для создания образов я пользуюсь программой UltraISO
вот кнопка

TOTALCMD#BAR#DATA
UltraISO.exe
?-copy G:\\ -output D:\MyDiskIso_1 измените привод и путь сохранения
%COMMANDER_PATH%\Programs\UltraISO\UltraISO.exe
Быстро создать образ CD\DVD не открывая UltraISO (в появившимся окошке измените привод G: на свой и укажите свой путь сохранения образа)
%COMMANDER_PATH%\Programs\UltraISO\

-1



следует поменять свой путь к программе

после нажатия вылетает окно в котором можно поменять привод и путь сохранения

А как сделать чтоб файл создавался с именем=метке диска.

[LocKtaR-o-DarK]

BezDNaU

Сценарий:
@echo off
title Создание ISO-образа в папку "%1"
set "pp=%commander_path%\programs\UltraISO.exe"
if not exist "%pp%" (echo Программа UltraISO не найдена&pause)
:dr
set /p "dr= Введите букву привода (пример: h): "
set "dr=%dr:~,1%"
if not defined dr (echo Вы не ввели букву привода&goto:dr)
for /f "tokens=6*" %%a in ('vol %dr%:') do set "label=%%b"
if not defined label set "label=Без метки"
"%pp%" -copy %dr%: -output "%1%label%"

кнопка та же

[universal007]

Назначение: эта кнопка будет создавать и дополнять вам описание

Сделал вот так:

w = WScript.CreateObject("WScript.Shell");
w.Run("C:\\Program Files\\Total Commander\\Script\\notepad описание.txt",0);
if (w.AppActivate("Akelpad")){
WriteWord();
KL = false;}
function WriteWord() {
WScript.Sleep(30);
w.SendKeys("~");
w.SendKeys("{~ 80}");
WScript.Sleep(120);
w.SendKeys("~");
WScript.Sleep(30);
w.SendKeys("^v");
WScript.Sleep(30);
w.SendKeys("{F2}");
w.SendKeys("{ESC}");}

И кнопку:

TOTALCMD#BAR#DATA
"c:\Program Files\Total Commander\Script\desc.js"

write
Создание и добавление описания в файл
%COMMANDER_PATH%\Script

-1

Но при нажатии на кнопку получаю сообщение:

Сценарий: c:\Program Files\Total Commander\Script\desc.js
Строка: 2
Символ: 1
Ошибка: Не удается найти указанный файл.
Код: 80070002
Источник: (null)

Где я напортачил?

[LocKtaR-o-DarK]

universal007
это старая версия решения задачи

ну раз не найден файл, значит его нет
проверь наличие файла C:\Program Files\Total Commander\Script\notepad.exe
или исправь 2-ю строку на
w.Run("C:\\Program Files\\Total Commander\\Script\\akelpad описание.txt",0);

вот новая версия решения этой задачи, akelpad в ней больше не используется

[universal007]

А может, кто подскажет кнопку, как распакавать архив

Ответ:

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

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

[Tol!k]

Хорошо бы, чтобы при этом создавалась одноименная папка, в которую бы и происходила распаковка

А скрипт разве не это делает?

а сам архив перемещался в эту же директорию но в подпапку с именем Архив

Ответ уже дан в этой же теме
http://forum.wincmd.ru/viewtopic.php?p=18547#18547