View previous topic :: View next topic |
Author |
Message |
ingerard
Joined: 04 Dec 2016 Posts: 128
|
(Separately) Posted: Wed Dec 06, 2017 16:09 Post subject: |
|
|
sa
Мне глубину менять приходится редко, я прописал в настройках какая мне надо и все.
p.s. только что попробовал нажать S+F5 и сразу же Win, и окно с выбором глубины появилось, без сложностей сразу срабатывает, так что вариант с выбором есть. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2569
|
(Separately) Posted: Wed Dec 06, 2017 16:16 Post subject: |
|
|
ingerard wrote: | попробовал нажать S+F5 и сразу же Win |
Тоже вариант! |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
(Separately) Posted: Wed Dec 06, 2017 18:56 Post subject: |
|
|
ingerard,
А копирование откуда делается? Если из панели результатов поиска, то диалог в любом случае будет показан, т.к. там неизвестна папка, от которой уровни отсчитывать, в отличие от копирования из плоского режима, где папка известна. В Readme об этом сказано:
Readme.txt wrote: | При копировании из панели результатов поиска (если не задан параметр DefaultCopyLevel) диалог показывается всегда, в остальных случаях - в зависимости от настроек модуля. |
_________________ TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel… |
|
Back to top |
|
|
ingerard
Joined: 04 Dec 2016 Posts: 128
|
(Separately) Posted: Wed Dec 06, 2017 23:37 Post subject: |
|
|
MVV
Да без всяких режимов только что попробовал, отключил в настройках CopyTree окно выбора глубины через Win, вызываю архивацию через Alt+F5, зажимаю кнопку Win и окно все равно выскакивает. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2569
|
(Separately) Posted: Thu Dec 07, 2017 11:15 Post subject: |
|
|
Речь о случае, когда помимо OK нажата клавиша Win. Как здесь.
Last edited by sa on Thu Dec 07, 2017 11:33; edited 1 time in total |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Dec 07, 2017 11:31 Post subject: |
|
|
Было бы странно, если бы он этого не знал, коли о баге в данном контексте и сообщалось.
ingerard
Вообще я изначально предполагал, что окно глубины таки требуется, иначе можно было бы сразу говорить о чём-то вроде этого:
Hidden text Code: | '••••••••••••••••••••••••••••••••• VBS •••••••••••••••••••••••••••••••••
' Копирование/перемещение по указанному пути выбранных в активной панели
' объектов (с сохранением относительных путей в режиме без подкаталогов)
' Параметры: %WL "%P" "<путь получателя>" <copy/move>
' Ключи:
' /с:[+/-]<число> — контроль глубины вложенности выбранных объектов
' a) Если перед числом +, добавляются папки справа пути источника.
' б) Если перед числом -, папки исключается слева относител. пути.
' в) Если знака нет, папки исключаются слева общего пути источника.
' /s:<секунд> — минимальное число секунд для оповещения об окончании
' /d — удалять опустевшие после перемещения файлов каталоги
' Примеры: %WL "%P" "%T" copy /c:2 /d
' %WL "%P" D:\NewFolder copy /s:20
' %WL "%P" "С:\New Folder" move /s:20 /с:-3
'••••••••••••••••••••••••••••••••••••••••••••••••• Автор: Flasher © ••••
Option Explicit : Dim T : T = Timer
Dim Lst, IPath, OPath, Act, C, S, D, Ln, Disk, Del, RExp, Max, Min
Dim RPath, Del2, TF, F, PF, Fd, FN, BN, Ext, i, TFile, FType, Sec
With WSH.Arguments
If .Count = 0 Then WSH.Quit: End If : Lst = .Item(0)
IPath = .Item(1) : OPath = .Item(2) : Act = .Item(3)
D = Eval(LCase(Act) = "move" And .Named.Exists("d"))
C = .Named("c") : S = .Named("s")
End With
With CreateObject("Scripting.FileSystemObject")
If Not (.FolderExists(IPath) Or .FolderExists(OPath)) Or (C = "" And _
StrComp(.BuildPath(IPath,"\"), .BuildPath(OPath,"\"), 1) = 0) Then WSH.Quit
Set Disk = CreateObject("Shell.Application").NameSpace(Left(OPath, 2))
If C = "0" Then OPath = .BuildPath(OPath, Replace(IPath, ":", ""))
If StrComp(Left(IPath, 1), Left(OPath, 1), 1) <> 0 Then _
If LCase(Act) = "move" Then Act = "Copy" : Del = " : .Delete"
Set RExp = New RegExp : Ln = Len(IPath)
If Right(IPath, 1) = "\" Then Max = 1 Else Ln = Ln + 1
If C > 0 And IsNumeric(C) Then
Max = UBound(Split(IPath, "\")) - Max + 1
If CInt(C) > Max Then
If Left(C, 1) = "+" Then C = Max Else C = 0
ElseIf Left(C, 1) <> "+" Then C = Max - C End If
RExp.Pattern = "((\\[^\\]+){" & CInt(C) & "})\\?$"
OPath = .BuildPath(OPath, Replace(RExp.Execute(_
"\" & IPath)(0).SubMatches(0), ":", ""))
End If : Set TF = .OpenTextFile(Lst,,,-1)
Do : F = TF.ReadLine : PF = .GetParentFolderName(F)
If Right(F, 1) = "\" Then F = Left(F, Len(F) - 1)
RPath = Mid(PF, Ln) : Del2 = ""
If C < 0 Then
Max = UBound(Split(RPath, "\")) + 1 : Min = Abs(C)
If Min > Max Then Min = 0 Else Min = Max - Min
RExp.Pattern = "(\\[^\\]+){" & Min & "}$"
RPath = RExp.Execute(RPath)(0)
End If
If IPath = "" Then Fd = OPath Else _
Fd = .BuildPath(OPath, RPath) : Disk.NewFolder Mid(Fd, 4)
FN = .GetFileName(F) : BN = .GetBaseName(F) : i = 0
Ext = .GetExtensionName(F) : If Len(Ext) Then Ext = "." & Ext
While .FileExists(Fd & "\" & FN) Or .FolderExists(Fd & "\" & FN)
i = i + 1 : FN = BN & " (" & i & ")" & Ext
Wend : If .FileExists(F) Then FType = "File" Else FType = "Folder"
If Len(Del) Then Del2 = FType & " F, 1"
Execute "." & Act & FType & " F, Fd & ""\"" & FN" & Del & Del2
If D And Right(PF, 1) <> "\" Then
Do : If .GetFolder(PF).Size = 0 Then .DeleteFolder PF, 1
PF = .GetParentFolderName(PF)
Loop Until IPath = .BuildPath(PF, "\")
End If
Loop Until TF.AtEndOfStream : TF.Close
End With : CreateObject("WScript.Shell").SendKeys "^r"
Sec = Timer - T
If S > 0 And CSng(S) <= Sec Then
If Sec < 60 Then Sec = 1.4 Else Sec = ""
If LCase(Act) = "copy" Then Act = " " &_
"Копирование " Else Act = " Перемещение "
CreateObject("WScript.Shell").Popup Space(7) &_
"Выполнено!", Sec, Act & "выбранного ", 4160
End If |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Dec 14, 2017 14:47; edited 14 times in total |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
(Separately) Posted: Thu Dec 07, 2017 13:09 Post subject: |
|
|
sa wrote: |
Речь о случае, когда помимо OK нажата клавиша Win. Как здесь. |
А, блин, только сейчас понял, в чём проблема, никто толком и не объяснил, что для воспроизведения бага кнопка Win обязательна. Да, подтверждаю, что диалог показывается с Win, даже если опция отключена. _________________ TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel… |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Dec 07, 2017 13:13 Post subject: |
|
|
MVV wrote: | никто толком и не объяснил, что для воспроизведения бага кнопка Win обязательна | Шутишь? А я с каким ключём к тебе обратился? И далее писал:
Flasher wrote: | При удержании Win диалог выбора всё равно появляется. | + См. самый верх предыдущей страницы. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Dec 07, 2017 13:16; edited 1 time in total |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Dec 07, 2017 13:18 Post subject: |
|
|
И я на это ответил. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2569
|
(Separately) Posted: Thu Dec 07, 2017 14:05 Post subject: |
|
|
Спорить не о чем: описание бага можно использовать как образец. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Dec 07, 2017 16:24 Post subject: |
|
|
Теперь всё ОК.
Ты бы ещё тут хоть "полслова" написал. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Fri Dec 08, 2017 16:45 Post subject: |
|
|
ingerard
С обновлением можно вернуться к короткому варианту. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|
|
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
|