sa
|
Posted: Fri Aug 19, 2011 17:56 Post subject: |
|
|
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 |
|