Tol!k
|
 Posted: Wed Nov 11, 2009 00:17 Post subject: |
 |
|
| Code: | ' File: Icons.vbs
' Description: Распаковывает *.icl *.dll,
' каждую библиотеку в отдельную папку
' Requirements: WSH Helper for TC by Volniy
' ICLRead.wcx by Progman13
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_DirBranch", False
TCS.SendCommand "cm_SpreadSelection", False
' Что распаковываем:
TCS.SendKeystroke "*.icl *.dll"
TCS.SendKeystroke "{ENTER}"
TCS.SendCommand "cm_UnpackFiles", False
' Куда складываем:
TCS.SendKeystroke "D:\stuff\icons\"
TCS.SendKeystroke "{TAB 4}"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
TCS.SendCommand "cm_DirBranch", False
Set TCS = Nothing
WScript.Quit |
Подкаталоги шерстит.
.dll распаковывает!
 |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
