aLexx
|
 Posted: Tue Oct 20, 2009 00:48 Post subject: |
 |
|
Вот, сочинил уже давно с кнопулей...
' File: UnpackSel.vbs
' Description: Распаковывает выделенные архивы (или архив под курсором), причем
' каждый архив в отдельную папку с именем, как у файла архива
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели TC
' Copyright: (c) 2007, Volniy
Option Explicit
Dim WshShell, TCS, TCPath
Set TCS = CreateObject("TCSCRIPT.Helper")
Set WshShell = WScript.CreateObject("WScript.Shell")
TCS.Pause = 100
TCS.SendCommand ("cm_UnpackFiles")
'TCS.SendKeystroke "{BKSP}" 'Если распаковка нужна в ту же панель, убрать коммент
TCS.SendKeystroke "{TAB 4}"
TCS.SendKeystroke chr(32)
Set TCS = Nothing
Set TCPath = Nothing
Set WshShell = Nothing
WScript.Quit |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
