| View previous topic :: View next topic |
| Author |
Message |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
 (Separately) Posted: Sat Nov 10, 2012 12:13 Post subject: |
 |
|
| AlexTex wrote: | | А можно сделать так, чтобы папка сразу открывалась? |
Пардон, из головы вылетело:
Заменить | Code: | End With : WScript.Quit |
на | Code: | End With
CreateObject("WScript.Shell").Exec "%COMMANDER_EXE% /O /S /L=""" & Path & Name & "\'"""
WScript.Quit |
Будет открывать папку или передвигать курсор на новый файл. |
|
| Back to top |
|
 |
AlexTex
Joined: 10 Jul 2008
Posts: 42
|
| (Separately) Posted: Sat Nov 10, 2012 17:36 Post subject: |
|
|
Flasher
Спасибо!
Скрипт работает довольно медленно. Примерно 3 секунды. Это нормально или что-то у меня? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Nov 10, 2012 18:05 Post subject: |
|
|
AlexTex
Даже при открытии папки? Или без? |
|
| Back to top |
|
|
AlexTex
Joined: 10 Jul 2008
Posts: 42
|
| (Separately) Posted: Sat Nov 10, 2012 19:09 Post subject: |
|
|
Flasher
Без.
При открытии папки еще не пробовал. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Nov 10, 2012 21:14 Post subject: |
|
|
AlexTex
Если - без, то заменить на
| Code: | End With : CreateObject("WScript.Shell").SendKeys "^R" |
|
|
| Back to top |
|
|
AlexTex
Joined: 10 Jul 2008
Posts: 42
|
| (Separately) Posted: Sat Nov 10, 2012 22:12 Post subject: |
|
|
Flasher
Срабатывает моментально! Спасибо!
P.S | Flasher wrote: | | Будет открывать папку или передвигать курсор на новый файл. |
Заменил, не работает. Папку создает, но не открывает и выскакивает ошибка. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Nov 11, 2012 01:39 Post subject: |
|
|
| AlexTex wrote: | | не работает |
См. указания в памятке. |
|
| Back to top |
|
|
AlexTex
Joined: 10 Jul 2008
Posts: 42
|
| (Separately) Posted: Sun Nov 11, 2012 14:49 Post subject: |
|
|
"Не удается найти указанный файл"
Код 80070002 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Nov 11, 2012 14:53 Post subject: |
|
|
В памятке только об этом написано? В общем, требуемая версия TC 8.01.
Скрипт переделал чисто под активную панель, читаем внимательно шапку. |
|
| Back to top |
|
|
AlexTex
Joined: 10 Jul 2008
Posts: 42
|
| (Separately) Posted: Sun Nov 11, 2012 15:43 Post subject: |
|
|
| Flasher wrote: | | В памятке только об этом написано? В общем, требуемая версия TC 8.01. |
Не думал, что это критично. Сорри. У меня TC 7.50. Как следствие, работает хорошо, быстро, но папку не открывает. Ладно, восьмерку поставлю, тогда и скрипт заработает.
Спасибо! |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Nov 11, 2012 15:51 Post subject: |
|
|
7.50 - это уже несерьёзно. Лучше обновиться, %COMMANDER_EXE% использовать удобней, чем %COMMANDER_PATH%\Totalcmd.exe.
В последнем варианте скрипта, если переход в папку не требуется, параметры надо очистить. |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2694
|
| (Separately) Posted: Sun Nov 11, 2012 16:17 Post subject: |
|
|
Ну, нажимать, так нажимать: скрипт, посылающий клавиши F7, Ctrl+V и дважды Enter.
| Code: | '================================================================
' Описание: Создать и открыть каталог с именем из буфера обмена
'================================================================
Dim WSH
Set WSH = WScript.CreateObject("WScript.Shell")
WSH.SendKeys "{F7}^V{Enter}{Enter}"
Set WSH = Nothing
Wscript.Quit
|
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Nov 11, 2012 16:26 Post subject: |
|
|
Ах, какой же ты предсказуемый (да и навернул лишнего, в одну строку можно было записать)..
И где же ж файл? ) Не стоит таки сравнивать обновление панели с окнопрыгами.
Мне просто не хочется лишний раз напрягать новичка со скачиваниями TCMC/TCFS2 и прописью путей, тут и так делов хватает.. |
|
| Back to top |
|
|
sa
Joined: 29 Apr 2009
Posts: 2694
|
| (Separately) Posted: Sun Nov 11, 2012 16:33 Post subject: |
|
|
| Flasher wrote: | | И где же ж файл? |
А про файл и не было запроса:
AlexTex
Возможно ли сделать кнопку "Создание папки с именем из буфера обмена"? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Nov 11, 2012 16:35 Post subject: |
|
|
| Не было, зато была универсализация (придёт кто-то и запросит "а можно ещё - файл", как это частенько бывает). И ты забыл самое главное, в исходной версии учитывалось наличие запрещённых символов. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
