Total Commander :: Автоматическое создание папок

through

[^/[Print]\]
Goto page Previous 1, 2, 3 ... 11, 12, 13, 14, 15 Next :| |:
Total Commander -> Автоматизация Total Commander

#166: Author: Cobblestone-TLT,

Posted: Sun Feb 09, 2014 13:19
—

Flasher wrote:

Папка открывается в любом случае в текущей панели, а именно в той панели, куда распаковывается. Исключение, когда с двух сторон был открыт один и тот же каталог. Исправить можно с пом. TCFS2.

Странно, у меня папка открывается в соседней панели (даже если с двух сторон открыты разные каталоги). Т.е. после операции имею в активной панели исходную папку, в соседней - папку назначения (автоматически созданную).

Flasher wrote:

Нет. Потому что Тоталу нужно находиться в той панели из которой берутся элементы.

Печально. Ну тогда на практике станет ясно что удобнее, автоматически создавать папку, но потом клацать по каждому совпадающему файлу, или как раньше, самому создавать папку, потом самому же её искать и перемещать внутренней командой Тотала, используя все её преимущества.

Спасибо!

Posted after 4 minutes:

Flasher wrote:

P.S. Я сегодня отлучаюсь до вечера, можно попросить MVV, sa - они при желании сделают кнопку.

Скрипт же есть! Если под "сделать кнопку" понимается перетащить его на панель и прописать параметы, так это я уже сделал (как-то ведь я протестировал все это дело). Если появилась какая-то идея, как изменить функционал скрипта или еще что-то - то я не тороплюсь, до вечера мне это не горит Smile

#167: Author: Cobblestone-TLT,

Posted: Sun Feb 09, 2014 21:55
—
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]

Исправьте пожалуйста в своем сообщении Smile

#168: Author: Flasher, Location: Москва

Posted: Mon Feb 10, 2014 00:10
—
Cobblestone-TLT
Как же? R - это получатель, L - это источник. При совпадении активного каталога и каталога получателя открываем нужное, оставаясь на месте, в ином случае открываем нужно в другой панели и переходим в неё. У меня всё верно.

Cobblestone-TLT wrote:

Если под "сделать кнопку" понимается перетащить его на панель и прописать параметы

Нет, кнопка - это кнопка с функционалом cmd/nircmd + TCFS2 без прибегания к сценариям.

#169: Author: Cobblestone-TLT,

Posted: Mon Feb 10, 2014 07:22
—

Flasher wrote:

Как же? R - это получатель, L - это источник.

Прямо мистика какая-то, но у меня необходима такая вот "инверсия" этих значений, чтобы все происходило в рамках только активной панели.. Confused

Flasher wrote:

Нет, кнопка - это кнопка с функционалом cmd/nircmd + TCFS2 без прибегания к сценариям.

Интересно было бы попробовать такой вариант Smile

#170: Author: sa,

Posted: Mon Feb 10, 2014 14:35
—

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

#171: Author: Cobblestone-TLT,

Posted: Mon Feb 10, 2014 15:28
—

sa wrote:

Не такой, но с TCFS2:

Отлично, теперь перемещение идет внутренними средствами Тотала! А с авто-входом в папку вопрос решаем? Smile

#172: Author: sa,

Posted: Mon Feb 10, 2014 16:12
—

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`))"

#173: Author: Cobblestone-TLT,

Posted: Mon Feb 10, 2014 17:57
—
Спасибо большое! Буду пробовать пока оба предложенных варианта, со временем решу какой мне удобнее!

#174: Author: Flasher, Location: Москва

Posted: Sun Feb 16, 2014 03:08
—
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.

#175: Author: sa,

Posted: Mon Feb 17, 2014 09:29
—

Flasher wrote:

У команды send_wait в TCFS2.ini стоит поменять 1000 на 50 или 100.

1000 в макросе нет. А зачем менять в нём что-то?

#176: Author: Flasher, Location: Москва

Posted: Mon Feb 17, 2014 13:15
—
Ага, с wait_for спутал. Менять для того, чтобы уменьшить задержку между опросами.

#177: Author: sa,

Posted: Mon Feb 17, 2014 13:58
—

Flasher wrote:

чтобы уменьшить задержку между опросами.

Сейчас она уже 0,1 сек. Если всё-таки надо меньше, то надо менять два числа.

#178: Author: Flasher, Location: Москва

Posted: Mon Feb 17, 2014 14:12
—

sa wrote:

надо менять два числа.

Второе - какое?

#179: Author: sa,

Posted: Mon Feb 17, 2014 14:17
—
Flasher
*10

#180: Author: Vasyugan,

Posted: Thu Feb 27, 2014 17:47
—
Здравствуйте. Скопировал этот скрипт в файл autodir.vbs, добавил кнопку на панель инструментов. При попытке использования пишет "Файл не найден".

Кнопка

Quote:

TOTALCMD#BAR#DATA
Autodirectory
%L
C:\totalcmd\TOTALCMD64.EXE,5
Создает папку с именем файла и копирует туда файл
с:\autodir.vbs
0
-1

Что я сделал не так?

!	Avada:
	Читаем правила текущего подфорума! Текст скрипта заменён ссылкой. Код кнопки нормально оформлен.

Total Commander -> Автоматизация Total Commander

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous 1, 2, 3 ... 11, 12, 13, 14, 15 Next :| |: Page 12 of 15