Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Dec 03, 2016 02:37 Post subject: |
|
|
Eugene_777
Не предусмотрено.
Можно, конечно, рассмотреть такой вариант для F5/F6, но не знаю, как оно по удобству будет:
Code: | '======================================================================
' Вызов диалога копирования/перемещения TC с предупреждением
' в случае существования одноимённых каталогов в получателе
' Условие: требуется компонент "Script Helper ActiveX for TC by Volniy"
' Параметры: %WL "%T" <копировать/перемещать: 5/6>
'======================================================================
Set A = WScript.Arguments : If A.Count = 0 Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
Set List = .OpenTextFile(A.Item(0),,,-1)
Do : F = List.ReadLine
Name = .GetFileName(F) : If Right(F, 1) = "\" Then
If .FolderExists(A.Item(1) & Name) Then S = S & vbCr & Name
Else Exit Do End If
Loop Until List.AtEndOfStream : List.Close
End With : Msg = 1 : Px2 = "ем" : CM = A.Item(2)
If Not IsEmpty(S) Then
If CM = 5 Then Action = "копирование" Else Action = "перемещение"
If InStrRev(S, vbCr) > 1 Then Px = "и" : Px1 = "и" : Px2 = "ами"
Msg = MsgBox("В получателе уже есть каталог" & Px & " с таким" &_
Px1 & " имен" & Px2 & ":" & vbCr & S & vbCr & vbCr & "Желаете" &_
" продолжить?", 49, " Total Commander ( " & Action & " ... )")
End If: If Msg = 1 Then CreateObject("TCScript.Helper").SendCommand 90 & CM |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|