Spine
|
Posted: Fri May 19, 2006 10:17 Post subject: |
|
|
Создаёшь вот такой скрипт
Code: | ' File: UnpackHere.vbs
' Description: Распаковывает выделенные архивы в ту же директорию
' где расположены сами архивы, причем каждый архив в
' отдельную папку с именем, как у файла архива
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели TC
' Copyright: (c) 2005, Volniy
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_UnpackFiles", False
TCS.SendKeystroke "{DELETE}"
TCS.SendKeystroke "{TAB 4}"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
|
и перетягиваешь его на панель...
у меня вот так получилось
Code: | TOTALCMD#BAR#DATA
D:\TCmd\Addons\WSH\UnpackHere.vbs
C:\WINDOWS\System32\WScript.exe
UnpackHere
D:\TCmd\Addons\WSH\
-1
|
|
|