Tol!k

|
Posted: Sat Aug 08, 2009 16:38 Post subject: |
|
|
Code: | TOTALCMD#BAR#DATA
c:\Program Files\WinRAR\WinRAR.exe
x %P%N "%P"
c:\Program Files\WinRAR\WinRAR.exe
извлечь архив в текущую папку
-1 |
а лучше
' File: Unpack-Here-.vbs
' Description: Распаковывает выделенные архивы в ту же самую
' директорию, где расположены архивы
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели TC
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_UnpackFiles", False
TCS.SendKeystroke "{DELETE}"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit |
|