» Total Commander (часть 4)

Dr Limpopo
копировать несколько файлов.

kalkin5

Цитата:

Цитата: в 7-ке появилась возможность подключать внешние инструменты сравнения - я юзаю Araxis Merge

можно поподробней как подключить, на примере Araxis Merge

Verwolk, спасибо за развернутый и внятный ответ.
Но перед тем, как задать вопрос, я попробовал копировать директорию Adobe, в которой 17.000 файлов. Наверно, не достаточно, чтобы появился второй прогресс-бар

Dr Limpopo
тады ой, только что попробовал у себя - 1 файл - 1 прогресс бар, >1 файла - 2 прогрессбара. инишки дефолтные.

Dr Limpopo
добавь(исправь) в секцию [Configuration] wincmd.ini эту строчку:
CountMarked=1

alt76
О! Это получилось! Это от меня спасибо неохватное

Проблема. Нужна кнопка, при которой в новом табе, активированном, а не фоновом, открывалась определённая папка. cd "Folder" не подходит, так как не открывает новый таб. appendtabs тоже, так как открывает в фоне. Есть ли вообще такая возможность?

YuraH
Справка - Команды и параметры - Параметры командной строки: /T - Открывает переданные каталоги в новых вкладках
Т.е. нужна команда типа "totalcmd.exe /O /T /L=Folder"

Rodny
Спасибо, конечно, но этот способ я использую сейчас. А мне интересны "внутренние" возможности, на подобие вышеупомянутого cd.

Не понял, внутренние возможности чего? Команда cd - она вообще ещё из ДОСа...

Rodny
Что ж непонятного? При использовании команды cd folder тотал просто открывает в текущем табе указанную папку. Всё. А при использовании командных ключей сначала запускается новая копия тотала, потом она проверяет наличие уже запущенной копии и если такая существует, открывает в новом табе указанную папку. Если нет - запускает новую. Это ещё хорошо, что игнорирует опцию, когда можно запустить несколько копий тотала, и открывает в существующей, а тупо не запускает новую. По-моему, если есть решение из первого варианта (командой), то использовать второй (ключами) как-то неэффективно.

YuraH
Цитата:

appendtabs тоже, так как открывает в фоне

Вот маразм, да? Я, увы, так с ком.строки и открываю... (тормозит, сцука)

YuraH
mozers
Фигасе, я буду mozers про скрипты рассказывать

Вот такой скриптик:
WScript.CreateObject("WScript.Shell").SendKeys "{F1}" & "{F2}"
На клавишу F1 вешается команда cm_OpenNewTab, а на F2 пользовательская команда со строкой cd folder.
Естественно, вместо F1,F2 лучше что-нибудь другое придумать.

Уверен, что можно и по-другому. Только это мой первый в жизни опыт в vbs, поэтому я удивлён, что это вообще работает

Rodny
Цитата:

Фигасе, я буду mozers про скрипты рассказывать

Главное тут - идея. А идея твоя - вполне рабочая
Только задействовать для одной команды два шортката и создавать пользовательскую команду... Да и SendKeys - нехорошая команда. (В реальной жизни приходится вставлять таймауты, учитывать раскладку клавиатуры...)
В общем, я пока остаюсь на старом варианте
[more]cpl_filter.vbs
Код: [no]' File: cpl_filter.vbs[/no]
[no]' Description: Скрипт откравает в текущей панели новую вкладку со всеми компонентами настройки Windows (файлы CPL, MSC)[/no]
[no]' и описаниями к ним (из descript.ion)[/no]
[no]' Для работы требуется установка Script Helper <http://wincmd.ru/plugring/script_helper.html> ©Volniy[/no]
[no]' Version: 1.1[/no]
[no]' Author: mozers™. СПАСИБО BackDog (за идею)[/no]
[no]' Comments: Создает в каталоге где находятся все файлы CPL и MSC (обычно в C:\WINDOWS\system32\)[/no]
[no]' файл с описаниями элементов (descript.ion)[/no]
[no]' Sample: Создаем кнопку на панели инструментов (или команду в меню "Запуск"):[/no]
[no]' Команда: %COMMANDER_PATH%\Utils\WSH\cpl_filter.vbs[/no]
[no]' Файл значка: shell32.dll[/no]
[no]' _________________________________________________________[/no]

Option Explicit

Dim WshShell, FSO, TCS, TCWSHelp, ControlDir, Total, descript, cmd

TCWSHelp = [no]"%COMMANDER_PATH%\Utils\WSH\TCWSHelp\TCWSHelp.exe"[/no]

Set WshShell = CreateObject([no]"WScript.Shell"[/no])
Set FSO = CreateObject([no]"Scripting.FileSystemObject"[/no])
On Error Resume Next
Set TCS = CreateObject([no]"TCSCRIPT.Helper"[/no])
If Err.Number <> 0 Then
If MsgBox([no]"Для работы требуется TC Command Sender."[/no] & vbNewLine & [no]"Вы хотите установить его сейчас?"[/no], vbOKCancel + vbInformation, [no]"Установка TC Command Sender"[/no]) = vbCancel Then WScript.Quit
TCWSHelp = WshShell.ExpandEnvironmentStrings(TCWSHelp)
if Not FSO.FileExists(TCWSHelp) then MsgBox [no]"Указанный файл"[/no] & vbCrLf & TCWSHelp & vbCrLf & [no]"О Т С У Т С Т В У Е Т !"[/no], vbExclamation, [no]"Ошибка установки"[/no] : WScript.Quit
WshShell.Run [no]""""[/no] & TCWSHelp & [no]""""[/no], 0, true
Set TCS = CreateObject([no]"TCSCRIPT.Helper"[/no])
End If
On Error GoTo 0

TCS.LockTC True
TCS.Wait = True

ControlDir = WshShell.ExpandEnvironmentStrings([no]"%windir%\system32\"[/no])
descript = ControlDir & [no]"descript.ion"[/no]
If Not FSO.FileExists(descript) Then CreateDescript(descript)
Total = [no]""""[/no] & WshShell.ExpandEnvironmentStrings([no]"%COMMANDER_PATH%\totalcmd.exe"[/no]) & [no]""""[/no]
cmd = Total & [no]" /O /S /T /L="[/no] & ControlDir
WshShell.Run cmd,1,true

TCS.SendCommand [no]"cm_SpreadSelection"[/no]
TCS.SendKeystroke [no]"*.msc *.cpl"[/no] & [no]"{ENTER}"[/no]
TCS.SendCommand [no]"cm_ShowOnlySelected"[/no]
TCS.SendCommand [no]"cm_ClearAll"[/no]
TCS.SendCommand [no]"cm_SrcComments"[/no]

Set TCS = Nothing
Set WshShell = Nothing
WScript.Quit

Sub CreateDescript(filename)
Dim File, text
text = _
[no]"ac3filter.cpl AC3 Filter"[/no] & vbNewLine & _
[no]"access.cpl Специальные возможности"[/no] & vbNewLine & _
[no]"alsndmgr.cpl Конфигурация AC97"[/no] & vbNewLine & _
[no]"appwiz.cpl Установка и удаление программ"[/no] & vbNewLine & _
[no]"bthprops.cpl Bluetooth Control Panel Applet"[/no] & vbNewLine & _
[no]"certmgr.msc Certificates"[/no] & vbNewLine & _
[no]"ciadv.msc Indexing Service"[/no] & vbNewLine & _
[no]"compmgmt.msc Computer Management"[/no] & vbNewLine & _
[no]"desk.cpl Свойства: Экран"[/no] & vbNewLine & _
[no]"devmgmt.msc Device Manager"[/no] & vbNewLine & _
[no]"dfrg.msc Disk Defragmenter"[/no] & vbNewLine & _
[no]"diskmgmt.msc Disk Management"[/no] & vbNewLine & _
[no]"eventvwr.msc Event Viewer"[/no] & vbNewLine & _
[no]"everest_cpl.cpl Lavalys EVEREST"[/no] & vbNewLine & _
[no]"firewall.cpl Брандмауэр Windows"[/no] & vbNewLine & _
[no]"fsmgmt.msc Shared Folders"[/no] & vbNewLine & _
[no]"gpedit.msc Group Policy"[/no] & vbNewLine & _
[no]"hdwwiz.cpl Мастер установки оборудования"[/no] & vbNewLine & _
[no]"inetcpl.cpl Свойства: Интернет"[/no] & vbNewLine & _
[no]"intl.cpl Язык и региональные стандарты"[/no] & vbNewLine & _
[no]"irprops.cpl Инфракрасная связь"[/no] & vbNewLine & _
[no]"joy.cpl Игровые устройства"[/no] & vbNewLine & _
[no]"jpicpl32.cpl Java Control Panel"[/no] & vbNewLine & _
[no]"lusrmgr.msc Local Users and Groups"[/no] & vbNewLine & _
[no]"main.cpl Свойства: Мышь"[/no] & vbNewLine & _
[no]"mmsys.cpl Свойства: Звуки и аудиоустройства"[/no] & vbNewLine & _
[no]"ncpa.cpl Сетевые подключения"[/no] & vbNewLine & _
[no]"netsetup.cpl Мастер настройки сети"[/no] & vbNewLine & _
[no]"ntmsmgr.msc Removable Storage"[/no] & vbNewLine & _
[no]"ntmsoprq.msc Removable Storage Operator Requests"[/no] & vbNewLine & _
[no]"nusrmgr.cpl Учетные записи пользователей"[/no] & vbNewLine & _
[no]"nwc.cpl Client Service for NetWare Applet"[/no] & vbNewLine & _
[no]"odbccp32.cpl ODBC Data Source Administrator"[/no] & vbNewLine & _
[no]"perfmon.msc Performance Monitor"[/no] & vbNewLine & _
[no]"powercfg.cpl Свойства: Электропитание"[/no] & vbNewLine & _
[no]"pserv.cpl Services and Devices"[/no] & vbNewLine & _
[no]"quicktime.cpl QuickTime"[/no] & vbNewLine & _
[no]"rsop.msc Resultant Set of Policy"[/no] & vbNewLine & _
[no]"secpol.msc Local Security Settings"[/no] & vbNewLine & _
[no]"services.msc Services"[/no] & vbNewLine & _
[no]"spider.cpl DrWeb SpIDer Guard"[/no] & vbNewLine & _
[no]"sysdm.cpl Свойства системы"[/no] & vbNewLine & _
[no]"telephon.cpl Телефон и модем"[/no] & vbNewLine & _
[no]"timedate.cpl Свойства: Дата и время"[/no] & vbNewLine & _
[no]"wmimgmt.msc Windows Management Infrastructure (WMI)"[/no] & vbNewLine & _
[no]"wscui.cpl Центр обеспечения безопасности Windows"[/no] & vbNewLine & _
[no]"wuaucpl.cpl Automatic Updates"[/no]

Set File = FSO.OpenTextFile(filename, 2, True)
File.Write text
File.Close
End Sub

уже пора уговорить Гислера сделать возможность выполнять несколько команд за раз, хотя бы для алиасов. Типа "cm_OpenNewTab && cd %temp%"

Rodny
Да, о скриптах я забыл . Спасибо, что напомнил. Но, во-первых, у меня 14 кнопок с папками (иногда добавляются или удаляются), и присваивать каждой комбинацию клавиш - это напряг. Во-вторых, при этом запускается wscript и TCWSHelp, так что оставлю так, как есть, или переопределю ^T на более удобную комбинацию и заменю ключи на "cd Folder" - посмотрю, что быстрее.

YuraH
Script Helper там не используется, чисто WSH, который в винде присутствует начиная с 2K, если не ошибаюсь. Так что тут особых проблем не вижу.
Вот с 14-ю клавишами - это да, неудобно будет.

Rodny
Цитата:

Script Helper там не используется

Это я о своём...
Короче, одним из способов реализации является StartMenu - записываем туда список нужных cd Folder и создаём [more=скрипт]Dim WshShell, TCS, Args
Set WshShell = CreateObject("WScript.Shell")
Set TCS = CreateObject("TCSCRIPT.Helper")
Set Args = WScript.Arguments
TCS.LockTC True
TCS.Wait = True
TCS.SendCommand "cm_OpenNewTab"
TCS.SendCommand 701+ Args.Item(0)
Set TCS = Nothing
Set WshShell = Nothing
WScript.Quit[/more]. Получается один скрипт с параметром (номер пункта в меню).

mozers

Расскажи, плиз, по шагам, а как ты используешь скрипт для выкладывания листинга с подсветкой синтаксиса.

BasiL YuraH Rodny
Эх, если бы Гислер понимал как приходится измудряться для реализации тривиальных задач...

abz
Чтобы не нарваться на бан за офф-топ ответил тут.

Скажите, а как подсчитать занимаемое место каталогами в обеих колонках тотала? И по локальной сети тоже.

Garik_Lugansk
Shift-Alt-Enter ?

Garrett
Ага, спасибо

Народ, подскажите. Открываю файл .sis (дистрибутив программы под Symbian для телефонов Nokia) в виндовом проводнике - начинается установка программы в телефон (с помощью программы установки Nokia Application Installer).
Открываю этот же файл в TC - он выдает окошко Программа не запускается.
И так со всеми sis и sisx.
Выбираю в меню файла - открыть с помощью - Nokia Application Installer - все запускается.
Выбираю в меню файла - открыть с помощью - выбор программы - Nokia Application Installer - использовать всегда - все запускается.
А в TC по двойному щелчку - нет.


Где собака зарыта?
Что, в системе и в TC разное ассоциирование файлов?

Сорри если тема уже обсуждалась.
Но интересует как в Тотале состряпать горячую клавишу что бы выделенная папка с mp3
файлами внутри начинала воспроизводится в Winamp.
Перетаскивание папки мышкой на значок Winamp не очень устраивает.

magnetics
создай новую комманду с параметрами /add %S и повесь на хоткей

realister12

Цитата:

создай новую комманду с параметрами /add %S и повесь на хоткей

А не можешь рассказать по-подробнее, пожалуйста.

Подскажите! у меня в версии 7.02a PowerPack 1.70 не работает TweakTC, при запуске пишет: tweaktc run-time error 76 path not found. В предыдущих версиях проблем не было. Переустановка не помогает, запускаю через меню "запуск- настройка командера" .Все ini вроде правильно прописаны. Винда ХР свежепоставленная, без твиков с последними обновами.
Сорри если тема уже обсуждалась.

SFV
В шапке ссылка на топик про сборки. С глюками поверпака обращайся туда.

Подскажите, как с помощью нажатия кнопки на панели инструментов, открыть определённую папку в антивной панели Тотала? Вроде задача несложная, но решить не могу. С помощью cd c:\бла бла открывается проводник, а мне нужно в активной панели тотала.