Flasher
|
Posted: Sun Jun 23, 2019 16:03 Post subject: |
|
|
Ответ на запрос:
Code: | '==================== VBS ====================
' Сравнение одноимённых каталогов в панелях ТС
' Условие: Путь запуска — пустой
' Параметры: %Z%N %X"%P" "%T"
'=============================================
Set A = WSH.Arguments : If A.Count < 3 Then WSH.Quit
If A(1) = A(2) Then WSH.Quit
With CreateObject("Scripting.FileSystemObject")
If StrComp(.GetAbsolutePathName("") & "\", A(1)) Then _
AP = 2 : NP = 1 Else AP = 1 : NP = 2
If Not .FolderExists("\\?\" & A(AP) & A(0)) Then WSH.Quit
Check = Not .FolderExists("\\?\" & A(NP) & A(0))
End With
With CreateObject("WScript.Shell")
If Check Then .Popup "В другой панели нет одноимённого каталога!",_
1.7, " Сравнение/синхронизация одноимённых каталогов ", 4144 : WSH.Quit
.Run """%COMMANDER_EXE%"" /S=S:= """ & A(1) & A(0) & """ """ & A(2) & A(0) & """"
End With | Скрипт лучше обычной кнопки, т.к. как не будет выводить окно синхронизации в ложных ситуациях: курсор на файле, [..] или папке без наличия одноимённой в другой панели. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|