Total Commander :: Запуск из батника опции поиска файлов по файл-списку

Запуск из батника опции поиска файлов по файл-списку

through

FAQ

[^/[Print]\]
Goto page Previous 1, 2 :| |:
Total Commander -> Автоматизация Total Commander

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

Posted: Mon Jul 23, 2018 20:32
—

BeardFury78 wrote:

Убрал первый амперсанд у строки (который после Ф идет)

Это обязательно. Уточнил в статье текст.

BeardFury78 wrote:

Как оказалось, был конфликт, в батнике на последней строке было

BeardFury78 wrote:

Скрипт полностью

Так а в скрипте где правка имени шаблона?

#17: Author: BeardFury78,

Posted: Mon Jul 23, 2018 20:38
—
Уже заменил в скрипте шаблон, теперь уже стало запускать поиск по файл-списку, но это если в Тотале запускать, а если через explorer, то не запускает поиск, наверное причина в том, что в фоне запускается.

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

Posted: Mon Jul 23, 2018 20:53
—

BeardFury78 wrote:

теперь уже стало запускать поиск по файл-списку

А выводить (при активном окне поиска)?

BeardFury78 wrote:

а если через explorer, то не запускает поиск

Естественно, т.к. там %COMMANDER_EXE%. Для explorer и остального переменную нужно заменить на абсолютный путь.

#19: Author: BeardFury78,

Posted: Mon Jul 23, 2018 21:36
—
Flasher
В Тотале выводит.
Прописал в скрипт абсолютный путь к exe Тотала и запустил в Эксплорере без запущенного Тотала, открылся Тотал с запущенным поиском, но файлы не вывелись плюс почему-то высветилось Тоталовское окошко "Программа не найдена".
Скрипт вот

Code:

With CreateObject("WScript.Shell")
.Run "g:\pathssearch.bat", 0, 1
PID = .Exec("e:\Programs Files\Total Commander\TOTALCMD64.EXE /S=F:Lsearchpaths").ProcessID
Do: A = .AppActivate(PID) :Loop Until A : .SendKeys "~%-"
End With

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

Posted: Mon Jul 23, 2018 21:55
—

BeardFury78 wrote:

с запущенным поиском, но файлы не вывелись

Под поиском понимается окно поиска или сам поиск? Не вывелись в окно или на панель?

#21: Author: BeardFury78,

Posted: Mon Jul 23, 2018 22:00
—
Flasher
Окно поиска, файлы в нем показаны, но на панель не выведены после этого.

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

Posted: Mon Jul 23, 2018 22:17
—
BeardFury78
А, с закрытым ТС. Тогда понятно:

Code:

TC = "e:\Programs Files\Total Commander\TOTALCMD64.EXE"
With CreateObject("WScript.Shell")
For Each Command in Array(TC & " /O", TC & " /S=F:Lsearchpaths")
PID = .Exec(Command).ProcessID
Do : A = .AppActivate(PID) : Loop Until A
Next : .SendKeys "~%-"
End With

#23: Author: BeardFury78,

Posted: Mon Jul 23, 2018 22:25
—
Flasher
прописал скрипт:

Code:

TC = "e:\Programs Files\Total Commander\TOTALCMD64.EXE"
With CreateObject("WScript.Shell")
.Run "g:\pathssearch.bat", 0, 1
For Each Command in Array(TC & " /O", TC & " /S=F:Lsearchpaths")
PID = .Exec(Command).ProcessID
Do : A = .AppActivate(PID) : Loop Until A
Next : .SendKeys "~%-"
End With

В Эксплорере запускаю с закрытым Тоталом, окно поиска запускается и файлы выводятся. Но когда в Тотале запускаю скрипт и жду, то ничего не происходит. Но заметил в диспетчере задач, что wscript постоянно чего-то делает, но делает что-то явно значительно дольше чем при запуске в Эксплорере без Тотала. Может вообще закольцовалось или что.

Last edited by BeardFury78 on Mon Jul 23, 2018 22:28; edited 1 time in total

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

Posted: Mon Jul 23, 2018 22:28
—
BeardFury78
Я уже сообразил. Минутку. Сейчас... Вот:

Code:

Option Explicit: Dim TC, Arr, B, i, A, Exec, PID
TC = "e:\Programs Files\Total Commander\TOTALCMD64.EXE"
Arr = Array(TC & " /O", TC & " /S=F:Lsearchpaths")
With CreateObject("WScript.Shell")
B = 0 : .Run "g:\pathssearch.bat", 0, 1
If .Environment("Process")("COMMANDER_EXE") <> "" Then B = 1
For i = B To 1
A = 0 : Set Exec = .Exec(Arr(i)) : PID = Exec.ProcessID
Do: A = .AppActivate(PID) : Loop Until A Or Exec.Status
Next : .SendKeys "~%-"
End With

Last edited by Flasher on Mon Jul 23, 2018 23:24; edited 1 time in total

#25: Author: BeardFury78,

Posted: Mon Jul 23, 2018 22:50
—
Flasher
Все работает отлично. И в Тотале, и в Эксплорере. Большое спасибо, вы очень мне помогли!

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

Posted: Mon Jul 23, 2018 23:25
—
BeardFury78
А вот и нет. Проблема была, когда ТС работал, но запуск был не из него. Теперь исправил. Пож-та. Smile

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

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

Goto page Previous 1, 2 :| |: Page 2 of 2