Total Commander

ask-rus писал(а):Скрипт жмем, открывается Wincmd.ini.

А вот так тоже открывается?:

CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("WScript.Shell")_
.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini"), 1).ReadAll

Flasher писал(а):А вот так тоже открывается?:

Я не знаю, что этим заменить. Попробовал вместо:

Код: Выделить всё

INI = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini") 
Text = FSO.OpenTextFile(INI, 1).ReadAll

Выдает ошибку.

Я не писал, что надо что-то менять. Это отдельный скрипт.

Flasher писал(а):А вот так тоже открывается?:

Так не открывается.

Добавлено спустя 13 минут:

Flasher писал(а):WScript.Sleep 10 - вместо единицы пробуй 6, 5, 4, 3, 2.

WScript.Sleep 60 - заработал:

Flasher писал(а):Окно мелькает очень быстро.

А я по-прежнему на своем варианте.

Flasher писал(а):+ Окно мелькает очень быстро.

А ради чего оно мелькает?

ask-rus писал(а):Так не открывается.

Я вообще понятия не имею, за счёт чего он у тебя открывается.

ask-rus писал(а):WScript.Sleep 60 - заработал:

А с меньшими нет?

ask-rus писал(а):А я по-прежнему на своем варианте.

Ну, если открывается файл, то я бы тоже на нём оставался. Потом ещё с регекспами попробую, может, с ними реплейс не глючит.

sa писал(а):А ради чего оно мелькает?

Для того, чтобы сразу переключение происходило.

Flasher писал(а):А с меньшими нет?

2, 3, 4 - нет, 5 не проверял.

Flasher писал(а):чтобы сразу переключение происходило.

Вроде бы и без вызова диалога внутренних ассоциаций переключение сразу происходит..?

sa
Посмотри в папке с ассоциированными в ТС файлами как меняются значки при вызове.

Flasher писал(а):как меняются значки

Понял теперь. Замечу для ясности, что фактическое переключение внутренних ассоциаций (за вычетом изменения ассоциированных значков) происходит и без мелькающего диалога.

sa писал(а):фактическое переключение внутренних ассоциаций (за вычетом изменения ассоциированных значков) происходит и без мелькающего диалога.

Но кому оно такое, спрашивается, надо? Это было понятно, поэтому я и написал в своё время.
Ты-то в итоге какой вариант выбрал?

Flasher писал(а):Ты-то в итоге какой вариант выбрал?

Пока, чтобы избавиться от задвоения [Associations] вместо твоих мельканий использую свои:

Код: Выделить всё

WSH.Exec("%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe /ef tcm(494)")
WScript.Sleep 60
WSH.SendKeys "+{TAB 5} {TAB 5}{ENTER}+{TAB 5} {ENTER}{TAB 2}"

sa писал(а):
Код: Выделить всё
WSH.SendKeys "+{TAB 5} {TAB 5}{ENTER}+{TAB 5} {ENTER}{TAB 2}"

Спасибо, посмешил.

Тогда уж

Код: Выделить всё

WSH.SendKeys "+{TAB 5}  ~"

Flasher писал(а):Тогда уж

Нет, надо вернуть прежнее состояние цветов для типов файлов.
А вот последние {TAB 2} действительно для данного случая избыточны.

sa писал(а):Нет, надо вернуть прежнее состояние цветов для типов файлов.

Не нет, а да, там два пробела. Избыточно там вообще всё, начиная с вызова настроек, которые из-за громоздкого файла конфигурации долго открываются (тут 60 мс явно мало), заканчивая набором ненужных переходов и применений.

Total Commander

Кнопка вкл\выкл "внутренние ассоциации"