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 

Переименование каталога при копировании
Goto page Previous  1, 2
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Dec 03, 2016 02:37    Post subject: Reply with quote

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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group