Flasher
|
 Posted: Thu Jun 04, 2015 14:43 Post subject: |
 |
|
ОК. Сперва нужно создать пользовательскую команду em_APPENDTABS, где APPENDTABS будет в поле "Команда:", а %A в "Параметры:".
Скрипт следующий: | Code: | '=========================================================
' Добавить вкладки для папки-проекта под курсором
' Параметры: %V <строка поиска>
'================= Путь к утилите TCFS2 ==================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'================== Путь к шаблону tab ===================
PFile = "%COMMANDER_PATH%\Tabs\Projects.tab"
'=============== Путь к каталогу Projects ================
Projects = "F:\My doc\Projects"
'=========================================================
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Set A = WScript.Arguments : CD = A(0)
If A.Count <> 2 Then MsgBox "Укажите 2 параметра!", 48
PFile = WSH.ExpandEnvironmentStrings(PFile)
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(CD) Or StrComp(.GetParentFolderName(CD), Projects, 1) <> 0 Then WScript.Quit
TF = CreateObject("Shell.Application").NameSpace(WSH.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & .GetTempName
.CreateTextFile(TF).Write Replace(.OpenTextFile(PFile).ReadAll, "\" & A(1) & "\", "\" & .GetFileName(CD) & "\")
WSH.Run TCFS2 & " /ef ""tem(`em_APPENDTABS " & TF & "`) msg($433,3009,,1) send(`{UP}{ENTER}`,0)""",,True : .DeleteFile TF, 1
End With |
TCFS2 см. тут. Все пути указать верные.
P.S.: И, по большому счёту, можно было бы вообще никак не зависеть от того, что в активной панели, а просто создать бар-меню с выпадающим списком кнопок, каждая из которых запускает вкладки своего проекта. Мне достаточно лишь добавить ещё один параметр для имени папки-проекта.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Sat Jun 06, 2015 08:23; edited 4 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
