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
Volniy



PostPosted: Mon Jul 04, 2005 18:34    Post subject: Reply with quote

CaptainFlint wrote:
Осталось только впихнуть это в какой-нибудь скрипт и повесить его на горячую клавишу. Smile

Помяни только черта - и вот он Smile В смысле не черт, а скрипт, конечно

Code:
'=========================[ Start of file ]=========================

'  File:         CompareDirs.vbs
'  Description:  Производит сравнение директорий с учетом подкаталогов
'                и отображает в панелях только различия
'  Installation: Создайте кнопку на панели TC
'                Команда: "диск:\путь\к\файлу\CompareDirs.vbs"

'  Copyright:    (c) 2005, Volniy

Option Explicit
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.LockTC True
TCS.SendCommand("cm_CompareDirsWithSubdirs")
TCS.SendKeystroke ("{TAB}")
TCS.SendCommand("cm_ShowOnlySelected")
TCS.SendKeystroke ("{TAB}")
TCS.SendCommand("cm_ShowOnlySelected")
TCS.LockTC False
Set TCS=Nothing
Wscript.Quit

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

Для работы скрипта понадобится WSH Helper for TС by Volniy [22 КБ]
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group