Иногда возникает необходимость установить в Windows выбранные в активной панели ТС шрифты. Решение представлено в следующем VBS-скрипте. ‘••••••••••••••••••••••••••••••••••••••••••••••• ‘ Установка выбранных в панели шрифтов в систему ‘ Параметр: %WL ‘•••••••••••••••••••••••••• Автор: Flasher © ••• If WScript.Arguments.Count = 0 Then WScript.Quit Exts = «|chr|fnt|fon|fot|mmm|otf|ttf|ttc|pfm|pfb|» Dim WSH : Set WSH = CreateObject(«WScript.Shell») . . . Read more
Q: В Totale можно открывать «панель управления» -> «все элементы панели управления», но если, допустим, нажать дальше на «Электропитание», то раздел откроется как пустая папка, а хочется чтобы открывалось в проводнике. A: Решение с помощью VBS-скрипта (см. рекомендацию и параметр в шапке): ‘=========================================== VBS ============================================ ‘ Открыть в Проводнике недоступный . . . Read more
A: Достаточно удобный механизм последовательного циклического переключения дисков в том или ином направлении: ‘========================================================= ‘ Циклическое переключение между дисками ‘ Параметры (необ.): <обратное направление: 1> <тип диска> ‘ Тип диска может принимать следующие значения: ‘ 1 — тома сменных накопителей (по умолчанию); ‘ 2 — тома жёстких дисков; ‘ 3 . . . Read more
Q: Можно ли сделать, чтобы выделенные в любой из панелей файлы добавлялись в список исключений? A: VBS-скрипт (см. параметры в шапке): ‘================================================================================ ‘ Добавление имён выбранных элементов в список исключений TC с активацией фильтра ‘ Параметры: %WL «<путь к файлу-списку>» ‘ Пример: %WL «%%COMMANDER_PATH%%\tcignore.txt» ‘ Автор: Flasher © ‘============================ Путь . . . Read more
Q: Помогите, пожалуйста, выделенные файлы раскидать по папкам с именем первого символа каждого файла. Например: Имяфайла -> в папку И, другойфайл -> в папку Д (можно без учёта регистра). Если папки с именем какого-либо символа нет — создать её. A: vbs-скрипт: ‘============================================================= ‘ Переместить выделенные файлы в создаваемые при необходимости . . . Read more
Q: Периодически требуется из выбранных в панели элементов создавать образы для последующей записи на CD/DVD/Blue-Ray-диски или для возможности их подключения в качестве виртуальных дисков. A: Представляю vbs-скрипт с использованием утилиты mkisofs: ‘================================================== ‘ Упаковать выбранные папки и/или файлы в ISO-образ ‘ Параметры: %WL «<Путь_назначения>\» ‘ Пример: %WL «%T» ‘ Автор . . . Read more
Q: В Total Comander есть команда cm_Encode для разового использования, с одним файлом она вполне приемлема. Но для удобства автоматизации интересует пакетное кодирование и декодирование сразу нескольких файлов с теми же именами, что и оригиналы. A: VBS-скрипт (см. описание в шапке): ‘========================================================== ‘ Кодировать/декодировать выбранные файлы в/из MIME (b64) ‘ . . . Read more
Q: Суть запроса в необходимости перемещения выбранных файлов в единичные каталоги, имена которых совпадают по указанному числу первых символов либо автоматически — в каталоги с максимальным числом этих совпавших символов. A: vbs-скрипт (описание работы в шапке): ‘••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• ‘ Перемещение выбранных файлов в папки с тем же началом в имени, ‘ . . . Read more
Q: Бывает нужно скопировать каталог вместе с вложенными в него каталогами и файлами, но так, чтобы вместо файлов копировались «пустышки», с соответствующими им именами. A: Тебе поможет следующий скрипт: ‘===================================================================== ‘ Создание структуры каталогов и файлов нулевого размера в них ‘ В параметрах вызова из TC должно быть прописано: ‘ . . . Read more
Q: Требуется быстро создать каталог с произвольным именем, и сразу же зайти в него. A: Скрипт: ‘======================================================== ‘ Создание папки и переход в нее в TC ‘ В параметрах вызова из TC можно указать название папки, ‘ иначе будет вызван диалог ввода имени папки ‘======================================================== Dim FSO, TCS, WS, TotalCmd, . . . Read more
