Добавлено: Вт ноя 22, 2016 16:45
Всё сразу становится обозримо (некрасиво).sa писал(а):Какие аргументы против?
Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Всё сразу становится обозримо (некрасиво).sa писал(а):Какие аргументы против?
Последнюю поставил. Последний вариант вроде заработал. Потом попробую приспособить это дело всё же к askparam, чтобы был список предопределённых расширений, которые можно было бы быстро выбирать.Версия ТСFS2 у тебя какая?
Вообще-то должно появляться окно "Такие файлы не найдены".Dimsok писал(а):на фон куда-то уходит
Скриптом можно проверять:Dimsok писал(а):если такого расширения не оказывается
Код: Выделить всё
'===================== VBS =====================
' Перейти к первому файлу с заданным расширением
' Условие: путь запуска - пустой
' Параметр: <расширение>
'================ Путь к TCFS2 =================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================
With CreateObject("WScript.Shell")
Set Items = CreateObject("Shell.Application").NameSpace(.CurrentDirectory).Items
Items.Filter 73920, "*." & WScript.Arguments(0)
If Items.Count Then _
.Exec TCFS2 & " /ef msg($0B,0) tcm(524) tcm(521,1) send(@`*.xml`,0) send({ENTER},0) " &_
"eval(send_wait(,findwnd(`TMyListBox`))) tcm(2023) tcm(524) tcm(2050) msg($0B,1) tcm(540)"
End WithТы точно про убирание ,0 в команде send говоришь?Flasher писал(а):Всё сразу становится обозримо (некрасиво).
Ты отказываешься от своих слов (без отключения проверки активности окна "Всё сразу становится обозримо")?Flasher писал(а):Ладно, не важно,