» Total Commander (часть 4)

naben

Цитата:

Спасибо, работает, а можно ли сделать так, что бы выводилось то окно, словно мы нажали Shift+F4, ввелось нечто подобное .txt и курсор переместился влево,и юзеру осталось только ввести имя файла и нажать интер и этот файл откроется в блокноте?

но думаю, что нет.

abz
А можно ли использовать Vbs скрипт наподобие этого? Сам не разбираюсь как написать, есть только пример:
WScript.CreateObject("WScript.Shell").SendKeys "{F4}"

Он работает, но как сделать что бы ещё и Shift нажимать,я не знаю.

naben

Цитата:

ввести имя файла и нажать интер и этот файл откроется в блокноте?

Попробуй так:

Код:
TOTALCMD#BAR#DATA
notepad.exe
?
notepad.exe
Notepad


-1

YuraH А без испоьзования меню никак нельзя?
Дело в том, что файлы привязаны в настройках Total к программе, которая находится на на usb-flash. Запуская TC на разных компьютерах, получаю разное контекстное меню и разные программы по умолчанию. Т.е. нужно, чтобы выделенные файлы,а не только файл под курсором по сочетанию клавиш открывались во внешней программе. Для внутренних программ это реализовано в настройках.

presentRU
Цитата:

а не только файл под курсором

Через контекстное меню отрываются все выделенные файлы.
Цитата:

привязаны в настройках Total к программе, которая находится на на usb-flash

Ага, нужна прога не по умолчанию. Посмотри тут, там скрипт mozers-а есть, только не уверен, что буква усб-диска будет одинаковая для всех компов, так что надо будет менять. Поставь скрипт на кнопку или клаву.

GGS
Не плохо конечно, но...
-Не пишет само .txt и не перемещает каретку в начало
-Задаёт лишние вопросы о том, что фала не существует и создать ли его.

Млжет всё таки кто знает, как в VBS это сделать? Принцип знаю, но не знаю, как SHIFT нажать программно.

Трабла с Файлы на панель!

Надо снести все папки с предыдущей Nero! В
поиске нахожу 84 папки, все их на панель.
А удалить не могу! Ни скопом, ни по одному!

Ммм?

naben

Цитата:

Не пишет само .txt и не перемещает каретку в начало

Вводишь только имя, а расширение .txt создастся автоматом

Цитата:

Задаёт лишние вопросы

Да, нет совершенства, но ответ-то простой

rick1

format c:

naben
new_file.vbs
Код: [no]' Создает пустой файл в текущем каталоге и открывает его в блокноте[/no]
Set WshShell = CreateObject([no]"WScript.Shell"[/no])

filename = InputBox([no]"Введите имя нового файла (без расширения)"[/no], [no]"Создание нового файла"[/no])
If filename <> [no]""[/no] Then
filename = filename & [no]".txt"[/no]
Set FSO = CreateObject([no]"Scripting.FileSystemObject"[/no])
Set File = FSO.OpenTextFile(filename, 2, True)
File.Close
WshShell.Run [no]"notepad.exe "[/no] & filename, 1, True
End If

mozers
Спасибо больше, всё работает как надо. Разве это не чудо!!!???

Цитата:

format c:

Не помог твой совет, abz!

Всё снеслось с диска С, а папки Nero, как и были на D, так и остались!

ИМХО,непутёвые вы советы толкаете!

rick1
Попробуйте Unlocker. Покажет, что их держит.

mozers
Оказалась небольшая проблемка, скрипт создаёт файл там, где лежит сам скрипт, а нужно было в активной панели, к тому же вызывает юлокнот Виндуса, а не редактор Тотала.
Нашёл ответ на свой вопрос, всё делается таким вот скриптом:
WScript.CreateObject("WScript.Shell").SendKeys "+{F4}" & ".txt" & "{Home}"
Но проблема в том, что когда на клавиатуре русская раскладка , в поле подставляется "юече" вместо ".txt", как с этим боротся не знаете?

Цитата:

Попробуйте Unlocker. Покажет, что их держит.

Анлокер не помог! Помог TuneUp Utilities 2007, с его утилитой уничтожения! Там 3 метода, так 2й осилил таки.

rick1
А что писало, когда не могло удалить?

naben
Цитата:

скрипт создаёт файл там, где лежит сам скрипт

Так сотри путь из параметра "Путь запуска:"

Цитата:

к тому же вызывает юлокнот Виндуса, а не редактор Тотала

Так пропиши в скрипте вместо notepad.exe путь к редактору Тотала.

Цитата:

CreateObject("WScript.Shell").SendKeys

Очень плохая команда. Не люблю ее...

Цитата:

А что писало, когда не могло удалить?

Вообще ничо не пишет!

Жму на опцию F8 и ноль реакции! Не по понятиям это!

mozers


Цитата:

Так сотри путь из параметра "Путь запуска:"

Спасибо , заработало, про путь совсем забыл.

Цитата:

Так пропиши в скрипте вместо notepad.exe путь к редактору Тотала.

Всё, догнал, надо было путь заключить аж в тройные кавычки!!! В двойные я пробовал, но о тройных даже и не думал.

И ещё, можно ли узнать путь, откуда был запущен скрипт и присовить этот путь какой нить переменной,что бы потом можно было указать путь к блокноту. Просто в самом скрипте используется жёсткая ссылка на блокнот, и если Тотал будет просто скопирован на другой диск, то скрипт не найдёт блокнот, а так подставим в путь нашу переменную и всё запустится, подскажите как это сделать?

naben
Замени предпоследнюю строчку на это:
Код: editor = WshShell.ExpandEnvironmentStrings([no]"%COMMANDER_PATH%\Utils\AkelPad\AkelPad.exe"[/no])
WshShell.Run [no]""""[/no] & editor & [no]""" "[/no] & filename, 1, True

mozers
Всё, наконец-то заработало, пол дня сёння искал в учебниках, уже получил все необходимые переменные, но запускаться блокнот не хотел, а тут спасение!!!
Большое Вам спасибо и спасибо за ссылку!

Собссно, задача по поиску!
Надо найти архив 30-150мб, там одни фотки. Как называется, не помню.
Какие параметры поиска мне лучше всего выставить!?

Как сделать, чтобы окно консоли было открыто по умолчанию?

Trancsend
Какое окно? Какой консоли?

AndreyDed
Trancsend
Может имеется ввиду командная строка? Внизу тотала.

SpoinT
Так это не окно, а строка. Может, окно плагина ТоталКонсоль? Так там настройки есть. Загадочный вопрос...

Кхм.... Надо найти архив 30-150мб, там одни фотки. Как называется, не помню.
Какие параметры поиска мне лучше всего выставить!?

rick1
А в чем проблема? Ищи все архивы, размер от и до, потом выбирай.

Цитата:

А в чем проблема? Ищи все архивы, размер от и до, потом выбирай.

У мя архивов не одна сотня! И совсем в немногих фотки.
Надо чтобы поиск нашел фотки в архиве!

КАК сделать это!?

Мэтры! Помогите, пожалуйста, с такой проблеммой.
Не могу открыть htm-файлы. Выдается сообщение (если правой клавишей, открыть):

OLE2 Command failed! Either your OLE2 subsystem is failed, or you have installed a shell extension which is incompatible with Total Commaner!

После чего так стало затрудняюсь ответить, комп общий! Подскажите, что делать?
Заранее благодарен!