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
ask-rus



PostPosted: Sun Aug 08, 2010 20:55    Post subject: Reply with quote

Tol!k wrote:
для упаковки в тот же каталог нужно указать имя архива без пути, т.е. zip:архив.zip

Теперь последовательность ясна, но в попытке из двух скриптов слепить то, что требуется привело меня к этому чудищу:
Code:
'  File:         PackHere.vbs
'  Description:  Выдает ошибку
'  Requirements: WSH Helper for TC by Volniy   
'  Installation: Создайте для вызова ошибки, например, кнопку на панели TC

Option Explicit
Dim TCS, OutDLL

OutDLL = WScript.Arguments

Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_PackFiles", False
TCS.SendKeystroke "zip:" & OutDLL & "{ENTER}"
Set TCS = Nothing
WScript.Quit

Прошу, вылечи его.
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group