View previous topic :: View next topic |
Author |
Message |
Cobblestone-TLT
Joined: 01 Feb 2014 Posts: 34
|
(Separately) Posted: Sun Feb 09, 2014 13:19 Post subject: |
|
|
Flasher wrote: | Папка открывается в любом случае в текущей панели, а именно в той панели, куда распаковывается. Исключение, когда с двух сторон был открыт один и тот же каталог. Исправить можно с пом. TCFS2. |
Странно, у меня папка открывается в соседней панели (даже если с двух сторон открыты разные каталоги). Т.е. после операции имею в активной панели исходную папку, в соседней - папку назначения (автоматически созданную).
Flasher wrote: | Нет. Потому что Тоталу нужно находиться в той панели из которой берутся элементы. |
Печально. Ну тогда на практике станет ясно что удобнее, автоматически создавать папку, но потом клацать по каждому совпадающему файлу, или как раньше, самому создавать папку, потом самому же её искать и перемещать внутренней командой Тотала, используя все её преимущества.
Спасибо!
Posted after 4 minutes:
Flasher wrote: | P.S. Я сегодня отлучаюсь до вечера, можно попросить MVV, sa - они при желании сделают кнопку. |
Скрипт же есть! Если под "сделать кнопку" понимается перетащить его на панель и прописать параметы, так это я уже сделал (как-то ведь я протестировал все это дело). Если появилась какая-то идея, как изменить функционал скрипта или еще что-то - то я не тороплюсь, до вечера мне это не горит |
|
Back to top |
|
|
Cobblestone-TLT
Joined: 01 Feb 2014 Posts: 34
|
(Separately) Posted: Sun Feb 09, 2014 21:55 Post subject: |
|
|
p.s.
Опытным путем обнаружил, что чтобы папка открывалась в текущей панели, не трогая при этом вкладки соседней, строку кода:
Flasher wrote: | Code: | If Path = .CurrentDirectory & "\" Then P = "L" Else P = "R" |
|
нужно изменить таким образом:
Code: | If Path = .CurrentDirectory & "\" Then P = "R" Else P = "L" | [/quote]
Исправьте пожалуйста в своем сообщении |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Feb 10, 2014 00:10 Post subject: |
|
|
Cobblestone-TLT
Как же? R - это получатель, L - это источник. При совпадении активного каталога и каталога получателя открываем нужное, оставаясь на месте, в ином случае открываем нужно в другой панели и переходим в неё. У меня всё верно.
Cobblestone-TLT wrote: | Если под "сделать кнопку" понимается перетащить его на панель и прописать параметы | Нет, кнопка - это кнопка с функционалом cmd/nircmd + TCFS2 без прибегания к сценариям. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Cobblestone-TLT
Joined: 01 Feb 2014 Posts: 34
|
(Separately) Posted: Mon Feb 10, 2014 07:22 Post subject: |
|
|
Flasher wrote: | Как же? R - это получатель, L - это источник. |
Прямо мистика какая-то, но у меня необходима такая вот "инверсия" этих значений, чтобы все происходило в рамках только активной панели..
Flasher wrote: | Нет, кнопка - это кнопка с функционалом cmd/nircmd + TCFS2 без прибегания к сценариям. |
Интересно было бы попробовать такой вариант |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2567
|
(Separately) Posted: Mon Feb 10, 2014 14:35 Post subject: |
|
|
Cobblestone-TLT wrote: | Интересно было бы попробовать такой вариант |
Не такой, но с TCFS2:
Code: | '===============================================
' Описание: Переместить в папку с текущей датой
' Параметры: %L
' Требования: Необходима утилита TCFS2
'===============================================
Dim TCFS2, S
'===============================================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================
If WScript.Arguments.Count > 0 Then
S = "tcm(1005,1) delay(200) send(`~(" & Right(Year(Date),4) & "." & Right("0" & Month(date), 2)_
& "." & Right("0" & Day(date), 2) & "\{TAB}{Enter})`, findwnd(`TInpComboDlg`))"
S = " /ef """ & S & """"
CreateObject("WScript.Shell").Exec TCFS2 & S
End If
Wscript.Quit |
|
|
Back to top |
|
|
Cobblestone-TLT
Joined: 01 Feb 2014 Posts: 34
|
(Separately) Posted: Mon Feb 10, 2014 15:28 Post subject: |
|
|
sa wrote: | Не такой, но с TCFS2: |
Отлично, теперь перемещение идет внутренними средствами Тотала! А с авто-входом в папку вопрос решаем? |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2567
|
(Separately) Posted: Mon Feb 10, 2014 16:12 Post subject: |
|
|
Cobblestone-TLT wrote: | А с авто-входом в папку вопрос решаем? |
Наверное - да, попробуй! Пугают проблемы с возможностью открытия кучи дополнительных окон в диалоге перезаписи и необходимостью ожидания их закрытия до входа в папку.
А можешь просто сделать отдельную кнопку для входа в папку с текущей датой. Строка для скрипта наподобие такой:
Code: | S = "tcm(4003,1) send( `~(cd " & Right(Year(Date),4) & "." & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2) & "\{Enter})`, findwnd(`TTOTAL_CMD`))" |
|
|
Back to top |
|
|
Cobblestone-TLT
Joined: 01 Feb 2014 Posts: 34
|
(Separately) Posted: Mon Feb 10, 2014 17:57 Post subject: |
|
|
Спасибо большое! Буду пробовать пока оба предложенных варианта, со временем решу какой мне удобнее! |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Feb 16, 2014 03:08 Post subject: |
|
|
Cobblestone-TLT
А разве перемещать и переходить надо не в целевой, а в активной панели? Почему об этом нельзя было сразу написать?
Cobblestone-TLT wrote: | Интересно было бы попробовать такой вариант | Ну, допустим (со всякими возникающими окнами не гарантирую безошибочного перехода): Code: | TOTALCMD#BAR#DATA
%ComSpec% /c ""%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe" /ef "tcm(1005,1) eval(send_wait(`%date:~6%~.%date:~3,2%~.%date:~0,2%\ {ENTER}`, findwnd(`TInpComboDlg`))" && "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe" /ef
"tcd(`%P%%date:~6%%.%%date:~3,2%%.%%date:~0,2%%\`,,S,1)""
ieframe.dll,62
Переместить выбранное в папку с именем текущей даты и перейти в неё
1 | У команды send_wait в TCFS2.ini стоит поменять 1000 на 50 или 100. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2567
|
(Separately) Posted: Mon Feb 17, 2014 09:29 Post subject: |
|
|
Flasher wrote: | У команды send_wait в TCFS2.ini стоит поменять 1000 на 50 или 100. |
1000 в макросе нет. А зачем менять в нём что-то? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Feb 17, 2014 13:15 Post subject: |
|
|
Ага, с wait_for спутал. Менять для того, чтобы уменьшить задержку между опросами. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2567
|
(Separately) Posted: Mon Feb 17, 2014 13:58 Post subject: |
|
|
Flasher wrote: | чтобы уменьшить задержку между опросами. |
Сейчас она уже 0,1 сек. Если всё-таки надо меньше, то надо менять два числа. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Mon Feb 17, 2014 14:12 Post subject: |
|
|
sa wrote: | надо менять два числа. | Второе - какое? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
sa
Joined: 29 Apr 2009 Posts: 2567
|
(Separately) Posted: Mon Feb 17, 2014 14:17 Post subject: |
|
|
Flasher
*10 |
|
Back to top |
|
|
Vasyugan
Joined: 27 Feb 2014 Posts: 1
|
(Separately) Posted: Thu Feb 27, 2014 17:47 Post subject: |
|
|
Здравствуйте. Скопировал этот скрипт в файл autodir.vbs, добавил кнопку на панель инструментов. При попытке использования пишет "Файл не найден".
Кнопка
Quote: | TOTALCMD#BAR#DATA
Autodirectory
%L
C:\totalcmd\TOTALCMD64.EXE,5
Создает папку с именем файла и копирует туда файл
с:\autodir.vbs
0
-1 |
Что я сделал не так?
! | Avada: | Читаем правила текущего подфорума! Текст скрипта заменён ссылкой. Код кнопки нормально оформлен. | |
|
Back to top |
|
|
|