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