Batya
|
 Posted: Mon Nov 28, 2005 19:23 Post subject: |
 |
|
| Code: | '=====================================================================
' Распаковка архива в противоположной панели TC в указананный каталог
'=====================================================================
Option Explicit
Dim MyDir
'=== Каталог для распаковки: ===
MyDir = "C:\Interesting"
'===============================
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendKeystroke ("{Tab}")
TCS.SendCommand ("cm_UnpackFiles")
TCS.SendKeystroke (MyDir)
TCS.SendKeystroke ("{Tab}{Tab}{Tab}{Tab}")
TCS.SendKeystroke (" ")
TCS.SendKeystroke ("{Enter}")
TCS.SendKeystroke ("{Tab}")
TCS.LockTC False
Set TCS=Nothing
Wscript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
