ask-rus
|
 Posted: Sun Aug 08, 2010 19:33 Post subject: Автоупаковка файлов в текущий каталог |
 |
|
Реквест по простейшей архивации через cm_PackFiles, который также не был найден и соорудить самому, имея аналогичный, у меня не вышло бы, т.к. не знаю последовательности действий по упаковке выделенных файлов в тот же самый каталог, где и файлы, а не в противоположную панель (возможно ли?).
Упаковка - ?
Распаковка -
| Code: | ' 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 |
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
