DoctorIkari
|
 Posted: Fri Aug 13, 2010 12:45 Post subject: |
 |
|
Что-то напортачил, в общем получилась такая белиберда: | Code: | 'Открыть указанную папку в новой вкладке
'Параметры: "<PATH>"
Dim FSO, WSH
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Path = WScript.Arguments(d:\Users\winRoot\Desktop\!_KAKASHKA_!)
TCPath = WSH.ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"
WSH.Run """" & TCPath & """ /S /O /T /L=""" & Path & """"'
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit |
Мне все это не совсем подходит.
Почему? Дело было так: всего лишь из-за того, как открываются вкладки. Т.е. по команде cm_OpenNewTab открывается копия текущей справа от нее, курсор находится вверху панели, а на исходной вкладке стоит на выделенном файле. Если закрыть созданную копию, то мы переходим на следующую вкладку справа, а не на исходную с которой делали копию.
т.е.: 1  2  3 
В связи с этим, я поменял местами хоткеи ctrl+t и ctrl+shift+t (cm_OpenNewTab и cm_OpenNewTabBg), ибо открытие-закрытие вкладок происходит более удобно:
1  2  3 
НО. И здесь есть один недостаток - курсор на новой вкладке оказывается на выбранном файле, а не вначале (хотя, кто знает.. может это и к лучшему)
=======
Поэтому вы понимаете, что мне подходит вариант Flasher'a (post #5) с выбором команды из ТК... вот никак и не могу подобрать ничего подходящего 
=======
Вариант с переходом на собственно десктоп все работает элементарно: | Code: | Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_OpenNewTabBg"
TCS.SendCommand "cm_OpenDesktop"
Set TCS=Nothing
WScript.Quit |
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
