аналог Enter (explorer) для нескольких файлов

Обсуждение Total Commander. Установка, использование, настройка, решение проблем, скрытые функции. Обсуждение новых версий.

Модераторы: d-view, Моторокер, Avada, CaptainFlint, Nik

Ответить
alex29
Сообщения: 24
Зарегистрирован: Чт янв 06, 2005 17:10

аналог Enter (explorer) для нескольких файлов

Сообщение alex29 »

Если в эксплорере выделить несколько файлов и нажать enter, запускаются все. Например, несколько программ, несколько документов ворда, несколько песенок загружаются в винамп.

Как такое сделать в totalcmd?
Ergo
Site Admin
Сообщения: 434
Зарегистрирован: Вт дек 14, 2004 20:57
Контактная информация:

Сообщение Ergo »

alex29
Сообщения: 24
Зарегистрирован: Чт янв 06, 2005 17:10

Сообщение alex29 »

ChoiceEditor - не очень похоже на то, что мне надо...
Я же не могу внести в список все типы файлов, которые мне когда-либо надо будет открывать. Кроме того, редактировать по F4 мне тоже бывает нужно...

Вопрос открыт ;-)
Аватара пользователя
Sheridan
Сообщения: 129
Зарегистрирован: Вт мар 01, 2005 07:47
Откуда: Пятигорск
Контактная информация:

Сообщение Sheridan »

1. Вноси по необходимости.
2. Цепляй именно тот редактор которым тебе более всего удобно.
Аватара пользователя
Batya
Сообщения: 2236
Зарегистрирован: Ср дек 15, 2004 09:51
Откуда: Москва, Россия

Сообщение Batya »

Сделай файлик *.vbs с кодом:

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

Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Set WS  = CreateObject("WScript.Shell")

Do While Not TempFile.AtEndOfStream
  WS.run chr(34) & FSO.GetFile(TempFile.ReadLine) & chr(34)
Loop
Повесь его на кнопку или в меню "Пуск", в параметрах пропиши %L.
alex29
Сообщения: 24
Зарегистрирован: Чт янв 06, 2005 17:10

Сообщение alex29 »

That's it!
Thanks.
Аватара пользователя
Batya
Сообщения: 2236
Зарегистрирован: Ср дек 15, 2004 09:51
Откуда: Москва, Россия

Сообщение Batya »

alex29
Чё-то я ступил в одном месте, можно проще:

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

'Запуск отмеченных в TC файлов зарегистрированным приложением
'В параметрах команды необходимо прописать %L

Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)

Do While Not TempFile.AtEndOfStream
  CreateObject("WScript.Shell").run chr(34) & TempFile.ReadLine & chr(34)
Loop
Pusher
Сообщения: 16
Зарегистрирован: Пн мар 21, 2005 13:55
Откуда: Ялта

Сообщение Pusher »

Ребята, нафига мутить чтото если есть стандартная функция?
Выделяете несколько файлов и выбираете в контекстном меню их выделенный пункт!!! Работает на все 100%!!! Не надо даже тянуться к шорткату или к тулбару.

Можно даже без мышки сделать! Контестное меню открывается специальной кнопкой, или же шифт+ф10, в нём нужно всего лишь нажать вниз и ентер. Пашет!!!
Аватара пользователя
Bomm
Сообщения: 245
Зарегистрирован: Сб янв 15, 2005 14:39
Откуда: Москва

Сообщение Bomm »

Ребята, нафига мутить чтото если есть стандартная функция?
Ух ты :-)
А я бы и не догадался... Век живи, такого узнаешь ;-)
Ответить