| View previous topic :: View next topic |
| Author |
Message |
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
 (Separately) Posted: Sat Feb 12, 2011 20:35 Post subject: |
 |
|
Rodny
Нужно установить путь на пассивной панели TC именно из vbs-скрипта?
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
 |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Feb 12, 2011 20:49 Post subject: |
|
|
| Rodny wrote: | | является только запуск через командную строку типа ... или есть ещё варианты? |
Знаю только аналог: | Code: | ' Перейти(распаковать) к файлу/папке в противоположной панели
' Параметры: %P%N
With CreateObject("WScript.Shell")
.Exec("%COMMANDER_PATH%\totalcmd.exe /O /S /R=""" & WScript.Arguments(0) & """")
End With |
Last edited by Flasher on Sun Feb 13, 2011 02:41; edited 1 time in total |
|
| Back to top |
|
|
Rodny
Joined: 24 Jan 2007
Posts: 949
Location: Могилёв, Беларусь
|
| (Separately) Posted: Sat Feb 12, 2011 21:33 Post subject: |
|
|
| Batya wrote: | | Нужно установить путь на пассивной панели TC именно из vbs-скрипта? |
Ага, только это активная.
Ищу запасной вариант действий на случай, если Helper на данной машине отсутствует. TC может запускаться с флэшки или даже сетевого диска, поэтому обращение к "totalcmd.exe /O /S" малость тормозит.
Flasher
Спасибо, взял на заметку. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Feb 12, 2011 21:42 Post subject: |
|
|
Rodny
Значит, флешка медленная. Бери c eSATA-интерфейсом.  |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
| (Separately) Posted: Sun Feb 13, 2011 14:37 Post subject: |
|
|
Flasher
А с помощью TCFS2.exe можно поменять текущую папку?
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sun Feb 13, 2011 15:06 Post subject: |
|
|
Batya
Можно ли как-то задействовать функцию msg - не знаю, но тут всё равно придётся API-шки ковырять. Об этом лучше у MVV спросить. А отдельной командой для сих нужд утилита, естественно, не располагает. Предназначение иное, к тому же она не понимает параметры ТС. |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон
|
| (Separately) Posted: Sun Feb 13, 2011 23:08 Post subject: |
|
|
Нельзя через TCFS2 изменить текущую папку. Утилита не умеет посылать сообщение WM_COPYDATA, с помощью которого можно менять папки и выполнять em-команды.
Папку можно менять, например, через TCMC, а еще - через TOTALCMD /o /s /l=.
Flasher, точно бы пропустил.
_________________
TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel… |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
| (Separately) Posted: Mon Feb 14, 2011 10:25 Post subject: |
|
|
Rodny
Соответственно, требуемый вариант:
| Code: | With CreateObject("WScript.Shell")
.Run """" & .ExpandEnvironmentStrings("%COMMANDER_PATH%\Utils\TCMC\TCMC.exe") & """ CDS """ & NewSrcPath & """ """"", 1, True
End With |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
Rodny
Joined: 24 Jan 2007
Posts: 949
Location: Могилёв, Беларусь
|
| (Separately) Posted: Mon Feb 14, 2011 16:53 Post subject: |
|
|
Batya
Спасибо, я ночью уже соорудил почти такое же, только кавычек поменьше
И тут возник вопрос: а может это у меня субъективное восприятие включается и на самом деле там большой разницы и нету?
Как вообще замерить время выполнения этих вариантов, если оно меньше секунды?
Пока играюсь с флэшкой, а она не самая медленная. На глаз после "totalcmd.exe /O /S" каталог меняется медленнее по сравнению с другими вариантами, но вот насколько... Родной DateDiff везде выдаёт 0 секунд.
Гуглятся какие-то конструкции типа GetTickCount, QueryPerformanceCounter и даже Stopwatch Class из .NET Framework. Но это для меня уже слишком сложно.
P.S. Это, в общем-то, уже just for fun, основная задача решена. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Feb 14, 2011 17:26 Post subject: |
|
|
Rodny
Взял достаточно медленную флешку, распаковал туда INSTALL.CAB, сделал кнопку с предложенным мной скриптом выше - скорость выполнения 1-3 дс, чуть помедленнее Ctrl+Влево/Вправо, разница почти не заметна. |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Feb 14, 2011 17:52 Post subject: |
|
|
MVV
Извини, какой файл? И почему только файл? Тесты проводились над кучей разных папок, файлов с длинными путями. Или ты имеешь в виду скрипт-файл? А флешку взял настолько тормозную, что ТС включается за 3 секунды, а выключается за пять. |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Mon Feb 14, 2011 18:35 Post subject: |
|
|
| Ясно, первая попытка чуть помедленней - 3-4 дс. |
|
| Back to top |
|
|
MVV
Joined: 15 Oct 2009
Posts: 4811
Location: Ростов-Дон
|
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
