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
sa



PostPosted: Fri Aug 19, 2011 17:56    Post subject: Reply with quote

Avada wrote:
Я так полагаю, что для пользы дела надо знать не только сам факт того, что что-то отличается, но и что именно отличается

Для такого случая можно предложить конгломерат под названием:
“Синхронизация одноимённых, но различающихся по размеру (файлов и) подкаталогов”. Всё примерно как и раньше, только добавлена последующая синхронизация выделенных объектов. Соответствующий кусочек кода:
Code:
With CreateObject("TCScript.Helper")
  T = .GetTextFromClip
  .SetTextToClip(S)
  .LockTC True
  .SendCommand 524
  .SendCommand 2033
  .SendKeystroke "{TAB}"
  .SendCommand 524
  .SendCommand 2033
  .SendKeystroke "{TAB}"
  .LockTC False
  .SetTextToClip(T)
  If Len (S) > 0 then
    .SendCommand 2020 'синхронизировать каталоги
    .SendKeystroke "{ENTER}"
  else
    MsgBox "Сравнение завершено. Различий по размеру не найдено", vbOKOnly, "Сравнение"
  End If 
End With

Ред: Оператор If сделал последним.


Last edited by sa on Fri Aug 19, 2011 22:14; edited 1 time in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group