laburj
|
 Posted: Tue Dec 23, 2008 14:03 Post subject: Фоновая распаковка архивов с последующим удалением архивов |
 |
|
Нашёл на форуме кнопку распаковки архива и скрипт, позволяющий распаковать все выделенные архивы, но ни 1ый и не 2ой вариант не совсем устраивают(
вар1: кнопка:
| Code: | TOTALCMD#BAR#DATA
WinRAR.exe -ibck
x %P%N "%P%O\"
C:\Program Files\WinRAR\WinRAR.exe
Распаковать архив в каталог с именем архива
C:\Program Files\WinRAR\
1
-1 |
"+":
-работает в фоне
-процессом занят WinRar, а не TC (т.е. в тотале можно продолжать работать)
"-":
-распаковывается архив только тот, который под курсором, а не все выделенные
-нет команды winRar'а (по крайней мере не нашёл), позволяющей удалять архив после распаковки
вар 2: скрипт
| 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
