Total Commander Knowledge Base
Поищите ответ в самой большой русскоязычной базе знаний по Total Commander!
Q: Как сохранить список файлов на FTP в текстовый файл? A: Можно воспользоваться vbs-скриптиком (для него нужен TCWSHelper) — заносит список в буфер обмена, оттуда уже вставляем в файл: Set TCS = CreateObject(«TCSCRIPT.Helper») TCS.SendCommand «cm_SelectAll» All = TCS.GetSrcSelectedFiles TCS.SetTextToClip(All) Set TCS=Nothing Wscript.Quit Batya A: Думаю, вполне можно воспользоваться встроенной командой . . . Read more
Q: Как выделить файлы с одинаковыми именами? A: Ну что ж, могу посоветовать написать скриптик *.vbs, использующий TCWSHelp: ‘Пометить файлы с именем как у текущего файла ‘В параметрах необходимо прописать %O FileName = WScript.Arguments(0) Dim TCS Set TCS = CreateObject(«TCSCRIPT.Helper») TCS.SendCommand «cm_SpreadSelection» TCS.SendKeystroke FileName & «.*{ENTER}» Set TCS = Nothing . . . Read more
Скрипт производит очистку RW диска, используя движок Nero версии 6 и выше. ‘ File: EraseCDRW.vbs ‘ Description: Производит очистку RW диска, используя ‘ движок Nero версии 6 и выше ‘ Installation: Создайте кнопку или команду в меню Запуск TC ‘ Команда: «диск:\путь\к\файлу\EraseCDRW.vbs» ‘ Если приводов у Вас два, то возможно, . . . Read more
Q: Как на кнопку назначить команду cm_SrcUserSpec с параметрами фильтрации: *.doc;*.txt и т.д.? A: Подвесь скрипт на кнопку Dim TCS Set TCS = CreateObject(«TCSCRIPT.Helper») TCS.SendCommand «cm_SrcUserDef» TCS.SendKeystroke «*.doc;*.txt» TCS.SendKeystroke «{ENTER}» Set TCS = Nothing Расширения вписывать понятно где. Для запуска нужен Script Helper. Batya
Q: Нужно найти файл, имя которого сейчас в буфере обмена. Как сделать? A: Скрипт на TCWSHelper: ‘============================================================================ ‘Запуск поиска в текущей папке файла, имя которого находится в буфере обмена. ‘============================================================================ Dim TCS Set TCS = CreateObject(«TCScript.Helper») TCS.Pause=100 TCS.LockTC True TCS.SendCommand(501) TCS.SendKeystroke (TCS.GetTextFromClip) TCS.SendKeystroke («{Enter}») TCS.LockTC False Set TCS=Nothing Wscript.Quit Batya . . . Read more
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
Иногда возникает потребность быстро выделить цветом какой-либо файл. Придумано несколько способов реализации этой функции, но, к сожалению, каждый имеет свои недостатки. Содержание 1 Способ с использованием комментариев descript.ion 1.1 Пошаговая инструкция 1.2 Кнопка 1.3 Шаблон поиска 1.4 Скрипт 1.5 Настройка горячей клавиши (по желанию) 1.6 Недостатки 2 Способ с использованием . . . Read more