Tol!k
|
 Posted: Sat Mar 14, 2009 22:34 Post subject: |
 |
|
| serhiy wrote: | Выкинуло ошибку :
Прервано пользователем. - |
Да, есть такое дело. Попробуй скрипт от Batya
Добавлено:
Не успевают распаковаться все архивы.
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_SaveSelection", False
TCS.SendCommand "cm_UnpackFiles", False
TCS.SendKeystroke "{DELETE}"
TCS.SendKeystroke "{TAB 4}"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
'Время на распаковку всех выделенных архивов
TCS.Pause=7000
TCS.SendCommand "cm_RestoreSelection", False
TCS.Pause=100
TCS.SendKeystroke "+{DELETE}"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
а конкретно в твоём случае
Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_SaveSelection", False
TCS.SendCommand "cm_UnpackFiles", False
TCS.SendKeystroke "{DELETE}"
TCS.SendKeystroke "{TAB}"
'Маска для распаковки
TCS.SendKeystroke "template.*"
TCS.SendKeystroke "{TAB 3}"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
'Время на распаковку всех выделенных архивов
TCS.Pause=7000
TCS.SendCommand "cm_RestoreSelection", False
TCS.Pause=100
TCS.SendKeystroke "+{DELETE}"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
чтобы извлеклись только template.* |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
