Total Commander Knowledge Base

Есть вопрос?

Поищите ответ в самой большой русскоязычной базе знаний по Total Commander!

Wiki Category: Автоматизация Total Commander

Перезапуск Total Commander

Q: Нужен скрипт, который бы перезапускал запущенную копию TC (полезно при отладке плагинов). A: Этот скрипт написал Volniy, и он идёт в качестве примера к Script Helper: Option Explicit Dim TCS, WshShell, TCexe, Timeout, QuitByTimeOut Set TCS = CreateObject(«TCScript.Helper») Set WshShell = WScript.CreateObject(«WScript.Shell») TCexe = «»»» & TCS.TCPath & «\totalcmd.exe»»» . . . Read more

Снятие и установка атрибутов с файлов

Так получается, что мне по работе часто приходится снимать признак ReadOnly с файлов. В принципе, можно для этого пользоваться и свойствами файлов, и командой изменения атрибутов в TC, но мне совсем не хотелось поднимать какие-либо диалоговые окна. Вот и написал скрипт, вызываемый по кнопке. Код кнопки TOTALCMD#BAR#DATA:%COMMANDER_PATH%\Utils\WHS\RemoveReadOnly.vbs%L%COMMANDER_PATH%\Icons\X-Qute.icl,28Снятие признака Read-Only -1 . . . Read more

Изменение размера панелей

Q: Можно ли сделать произвольное изменение размера панелей по горячей клавише? TC умеет только 50/50… A: Можно через скрипт на WSH Script Helper. Там есть специальное свойство Separator для управления положением сепаратора. Dim TCS Set TCS = CreateObject(«TCScript.Helper») TCS.LockTC True ‘Выберите свой вариант положения разделителя ‘ 1) Посередине, 50 на . . . Read more

Как найти файлы, в которых первый символ - x00

Q: Как найти файлы, в которых 1-й символ — 16-ный x00? A: В принципе можно искать через wdx-плагины. Проще всего использовать Script Content. Я, правда, не очень хорошо разбираюсь в 16-тиричных потрохах файлов. Возможно это поможет. script.ini: [Script] Section=First Hex Letter [First Hex Letter] Script=FirstHexLet.vbs LongName=1 ParseDirs=0 FirstHexLet.vbs: Dim FSO, . . . Read more

Создание большого количества каталогов с порядковыми номерами

Q: Нужно создать большое количество каталогов с именами 1_1_1, 1_1_2 и до 9_9_9. Подскажите как? A: Скрипт на VBS: ‘============================================================= ‘ Создание в текущем каталоге папок с именами 1_1_1 … 9_9_9 ‘============================================================= Option Explicit Dim FSO, i Set FSO = CreateObject(«Scripting.FileSystemObject») For i = 111 To 999 FSO.CreateFolder i \ . . . Read more

Перенос кнопки с тулбара в меню

Q: Все вы прекрасно знаете как быстро и мгновенно можно создать кнопку в иконбаре, и как долго и мучительно пункт в меню «запуск». По этому случаю у меня просьба к скриптописателям — напишите скрипт, который копирует кнопку и вставляет её в меню «Запуск». A: vbs-скрипт, использующий Script Helper: ‘======================================================== ‘ . . . Read more

Быстрая подсветка файлов и каталогов

Иногда возникает потребность быстро выделить цветом какой-либо файл. Придумано несколько способов реализации этой функции, но, к сожалению, каждый имеет свои недостатки. Содержание 1 Способ с использованием комментариев descript.ion 1.1 Пошаговая инструкция 1.2 Кнопка 1.3 Шаблон поиска 1.4 Скрипт 1.5 Настройка горячей клавиши (по желанию) 1.6 Недостатки 2 Способ с использованием . . . Read more