| View previous topic :: View next topic |
| Author |
Message |
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
 (Separately) Posted: Sun Aug 08, 2010 23:12 Post subject: 2 десктопа в одном |
 |
|
Дело в следующем: некоторое время назад (уже как несколько месяцев) на десктопе в эксплорере стали отображаться значки только текущего пользователя winroot. он же админ. признаков, подвигших к этому, конечно же не было замечено 
нуу.. на сам эксплорер мне.. в общем все равно. но все данные, предназначенные для быстрой обработки и тд. хранятся на столе... получается т.н. папка quick-доступа)
можно ли в ТК объединить 2 папки в одной? (All Users и winRoot)
хочу забиндить на хоткей этот винегрет
win xp x64
Можно ли такое совершить?
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
| Back to top |
|
 |
GGS
Joined: 02 May 2009
Posts: 322
|
| (Separately) Posted: Sun Aug 08, 2010 23:33 Post subject: |
|
|
| Виртуальная папка "Рабочий стол" (команда cm_OpenDesktop) это не то, что Вам нужно? |
|
| Back to top |
|
|
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
| (Separately) Posted: Mon Aug 09, 2010 07:54 Post subject: |
|
|
Ой, благодарю
Пропустил подачу... пытался сделать кнопку с путем до десктопа сразу двух пользователей в строке параметров.. но неудачно. Вирт папка - то что надо
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
| Back to top |
|
|
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
| (Separately) Posted: Mon Aug 09, 2010 22:45 Post subject: |
|
|
Извиняюсь, сразу забыл сказать: это не совсем то (например, если копировать путь файла/папки через cm_CopyFullNamesToClip, путь будет в виде \\Рабочий стол\1.txt).
И еще: можно ли в кнопке в параметрах поставить сразу 2 команды (нужно в частности следующее: открыть новую вкладку и перейти на десктоп без лишних телодвижений)
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Aug 10, 2010 00:38 Post subject: |
|
|
| DoctorIkari wrote: | | например, если копировать путь файла/папки через cm_CopyFullNamesToClip, путь будет в виде \\Рабочий стол\1.txt |
Ну а иначе никак. Либо переключаться между двумя невиртуальными папками по командам cd %$DESKTOP% и cd %$COMMON_DESKTOPDIRECTORY% соответственно.
| DoctorIkari wrote: | | И еще: можно ли в кнопке в параметрах поставить сразу 2 команды (нужно в частности следующее: открыть новую вкладку и перейти на десктоп без лишних телодвижений) |
В графе "Параметры" команды ТС не прописываются. Поэтому ответ - однозначно нет, ни в параметрах, ни в графе "Команда". И следовало бы давно заметить, что, если прописать команду TC(там где ей следует быть), то доступ к графе "Параметры" блокируется.
Можно ли создать такую кнопку - несомненно, и скриптом делается элементарно. Я бы вопрос счёл за оффтоп и нежелание воспользоваться поиском(поскольку вопрос о последовательном выполнении нескольких команд довольно частый, буквально недавно стал его свидетелем), но слишком уж задача мелочная. >>
| Code: | Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_OpenNewTab"
TCS.SendCommand "cm_OpenDesktop"
Set TCS=Nothing
WScript.Quit |
Хелпер уже стоит, надеюсь. |
|
| Back to top |
|
|
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
| (Separately) Posted: Tue Aug 10, 2010 07:19 Post subject: |
|
|
Благодарю.
Про графу параметры и лочение от вписанной команды известно конечно)... надеялся на обходные пути. Опять же, не хотел прибегать к скриптам (сначала собирался это в моем пред посте написать ). А вариант со скриптом я оставлял на самый последний случай, уже сам начинал шкрябать что-то.
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Aug 10, 2010 09:49 Post subject: |
|
|
| DoctorIkari wrote: | | Опять же, не хотел прибегать к скриптам |
Просто скриптом быстрее. А так из альтернатив я бы предложил TC Multiple Commands, хотя есть ещё парочка. |
|
| Back to top |
|
|
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
| (Separately) Posted: Fri Aug 13, 2010 01:30 Post subject: |
|
|
Извиняюсь, а если нужно перейти, допустим, в другую папку (не стандартную). Т.е. создали на десктопе папку и хотим след: скрипт создает вкладку в ТК и далее переходим в папку.
В vbs-скриптинге я слабоват, но выяснилось, что в строке TCS.SendCommand "c:\фыв" путь так просто не прокатит. Ежели этому пути присвоить имя как команде (f.e. em_com1), то никакой разницы не видно, перехода в папку не наблюдается.
TC Multiple Commands по некоторым причинам позволить себе не могу :\
Чувствую, что истина где-то рядом, но никак не могу дойти
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Fri Aug 13, 2010 02:17 Post subject: |
|
|
| TCS.SendCommand CD c:\фыв |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Fri Aug 13, 2010 02:52 Post subject: |
|
|
Tol!k
Опа, а я и не догадывался, что так возможно. Надо Volniy попросить, чтобы в ридми написал.
Вдогонку по предложенному вчера Batya сценарию без использования Хелпера: | Code: | 'Открыть указанную папку в новой вкладке
'Параметры: "<PATH>"
Dim FSO, WSH
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Path = WScript.Arguments(0)
TCPath = WSH.ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"
WSH.Run """" & TCPath & """ /S /O /T /L=""" & Path & """"'
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit |
|
|
| Back to top |
|
|
Volniy
Joined: 15 Dec 2004
Posts: 585
Location: Местный
|
| (Separately) Posted: Fri Aug 13, 2010 05:09 Post subject: |
|
|
| Flasher wrote: | Tol!k
Опа, а я и не догадывался, что так возможно. Надо Volniy попросить, чтобы в ридми написал. |
Да я бы и написал, чего ж не написать-то. Только это работать все равно не будет  Но ведь есть же иной способ, и он-то как раз нормально описан в ридми:
| Quote: | SetSrcPath (SrcPath, [InNewTab]) - дает указание установить желаемый путь в панели-источнике TC. Если указать в качестве первого параметра путь к файлу, то кроме перехода к папке, где расположен данный файл, будет дополнительно произвелено выделение файла(!) в панели-источнике. Если необязательный параметр InNewTab установить в True, тогда указываемый путь будет открыт в новой вкладке.
SetTrgPath (TrgPath, [InNewTab]) - дает указание установить путь в целевой панели ТС. Если указать в качестве первого параметра путь к файлу, то кроме перехода к той папке, где расположен данный файл, будет дополнительно произведено выделение файла(!) в целевой панели. Если же необязательный параметр InNewTab установить в True, тогда указываемый путь будет открыт в новой вкладке. |
tcwshelp_b11Plus.rar |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2224
Location: Москва, Россия
|
| (Separately) Posted: Fri Aug 13, 2010 10:22 Post subject: |
|
|
| Flasher wrote: | Вдогонку по предложенному вчера Batya сценарию без использования Хелпера:Код:
'Открыть указанную папку в новой вкладке
'Параметры: "<PATH>" |
Всё бы хорошо, только виртуальную папку "Рабочий стол" так не откроешь 
А для обычной папки не нужны скрипты, достаточно кнопки:
| Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\TOTALCMD.EXE /S /O /T /L=
"<PATH>"
%COMMANDER_PATH%\TOTALCMD.EXE,6
Открыть <PATH> в новой вкладке
-1
|
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
| (Separately) 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) |
|
| Back to top |
|
|
Tol!k
Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас
|
| (Separately) Posted: Fri Aug 13, 2010 13:16 Post subject: |
|
|
| Volniy wrote: | | Только это работать все равно не будет |
А чего ж не работает стандартная тоталовская команда?
DoctorIkari
| Code: | 'Параметры: c:\фыв
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_OpenNewTabBg"
TCS.SendKeystroke "CD " & Replace(WScript.Arguments(0), """", "")
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
|
Так? |
|
| Back to top |
|
|
DoctorIkari
Joined: 28 Feb 2010
Posts: 53
Location: Nihon
|
| (Separately) Posted: Fri Aug 13, 2010 13:44 Post subject: |
|
|
При выполнении скрипта | Code: | 'Параметры: c:\фыв
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_OpenNewTabBg"
TCS.SendKeystroke "CD d:\Users\winRoot\Desktop\!_KAKASHKA_!" & Replace(WScript.Arguments(0), """", "")
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit |
выбивает ошибку (...строка 5, символ 1...)
_________________
The right man in the wrong place can make all the difference in the world... (hl2) |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
