Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Как распаковать архив в папку с именем и расширением архива? 
Author Message
BeTeP



PostPosted: Tue Oct 30, 2007 22:42    Post subject: Reply with quote

Если нужно распаковать сразу несколько архивов, то можно ещё воспользоваться скриптом. Wink
Code:
'=========================[ Start of file ]=========================

'  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

'=========================[  End of file  ]=========================

_________________
«The Truth Is Out There»
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group