KF-121
|
 Posted: Thu Aug 17, 2006 11:37 Post subject: |
 |
|
| Quote: |
' 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
|
Вот нащел кнопку которая распаковывает архивы в текущую папку с именем, а можно кней еще прикрутить чтобы сам агхив перемежался в <Архив наме>\Old
Add:
И подскажите как сделать кнопку что бы она создавала папку с текущей датой в текущем каталоге?
_________________
Во всем виновато КАКАДУ!
--------------------------------
IIIypuk©KF-121 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
