'======================================================================
' Вызов диалога копирования/перемещения 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