Script Request

[Flasher]

А можно сделать так, чтобы папка сразу открывалась?

Пардон, из головы вылетело:
Заменить

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

  End With : WScript.Quit

на

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

  End With
  CreateObject("WScript.Shell").Exec "%COMMANDER_EXE% /O /S /L=""" & Path & Name & "\'"""
  WScript.Quit

Будет открывать папку или передвигать курсор на новый файл.

[AlexTex]

Flasher
Спасибо!
Скрипт работает довольно медленно. Примерно 3 секунды. Это нормально или что-то у меня?

[Flasher]

AlexTex
Даже при открытии папки? Или без?

[AlexTex]

Flasher
Без.
При открытии папки еще не пробовал.

[Flasher]

AlexTex
Если - без, то заменить на

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

  End With : CreateObject("WScript.Shell").SendKeys "^R"

[AlexTex]

Flasher
Срабатывает моментально! Спасибо!

P.S

Будет открывать папку или передвигать курсор на новый файл.

Заменил, не работает. Папку создает, но не открывает и выскакивает ошибка.

[Flasher]

не работает

См. указания в памятке.

[AlexTex]

"Не удается найти указанный файл"
Код 80070002

[Flasher]

В памятке только об этом написано? В общем, требуемая версия TC 8.01.
Скрипт переделал чисто под активную панель, читаем внимательно шапку.

[AlexTex]

В памятке только об этом написано? В общем, требуемая версия TC 8.01.

Не думал, что это критично. Сорри. У меня TC 7.50. Как следствие, работает хорошо, быстро, но папку не открывает. Ладно, восьмерку поставлю, тогда и скрипт заработает.
Спасибо!

[Flasher]

7.50 - это уже несерьёзно. Лучше обновиться, %COMMANDER_EXE% использовать удобней, чем %COMMANDER_PATH%\Totalcmd.exe.

В последнем варианте скрипта, если переход в папку не требуется, параметры надо очистить.

[sa]

Ну, нажимать, так нажимать: скрипт, посылающий клавиши F7, Ctrl+V и дважды Enter.

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

'================================================================
' Описание:   Создать и открыть каталог с именем из буфера обмена
'================================================================
Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")
WSH.SendKeys "{F7}^V{Enter}{Enter}"
Set WSH = Nothing
Wscript.Quit

[Flasher]

Ах, какой же ты предсказуемый (да и навернул лишнего, в одну строку можно было записать)..
И где же ж файл? ) Не стоит таки сравнивать обновление панели с окнопрыгами.
Мне просто не хочется лишний раз напрягать новичка со скачиваниями TCMC/TCFS2 и прописью путей, тут и так делов хватает..

[sa]

И где же ж файл?

А про файл и не было запроса:
AlexTex
Возможно ли сделать кнопку "Создание папки с именем из буфера обмена"?

[Flasher]

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