BeardFury78 писал(а):Убрал первый амперсанд у строки (который после Ф идет)
Это обязательно. Уточнил в статье текст.
BeardFury78 писал(а):Как оказалось, был конфликт, в батнике на последней строке было
BeardFury78 писал(а):Скрипт полностью
Так а в скрипте где правка имени шаблона?
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Уже заменил в скрипте шаблон, теперь уже стало запускать поиск по файл-списку, но это если в Тотале запускать, а если через explorer, то не запускает поиск, наверное причина в том, что в фоне запускается.
BeardFury78 писал(а):теперь уже стало запускать поиск по файл-списку
А выводить (при активном окне поиска)?
BeardFury78 писал(а):а если через explorer, то не запускает поиск
Естественно, т.к. там %COMMANDER_EXE%. Для explorer и остального переменную нужно заменить на абсолютный путь.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Flasher
В Тотале выводит.
Прописал в скрипт абсолютный путь к exe Тотала и запустил в Эксплорере без запущенного Тотала, открылся Тотал с запущенным поиском, но файлы не вывелись плюс почему-то высветилось Тоталовское окошко "Программа не найдена".
Скрипт вот
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
BeardFury78 писал(а):с запущенным поиском, но файлы не вывелись
Под поиском понимается окно поиска или сам поиск? Не вывелись в окно или на панель?
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
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
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
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 постоянно чего-то делает, но делает что-то явно значительно дольше чем при запуске в Эксплорере без Тотала. Может вообще закольцовалось или что.
Последний раз редактировалось BeardFury78 Пн июл 23, 2018 21:28, всего редактировалось 1 раз.
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
Последний раз редактировалось Flasher Пн июл 23, 2018 22:24, всего редактировалось 1 раз.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
BeardFury78
А вот и нет. Проблема была, когда ТС работал, но запуск был не из него. Теперь исправил. Пож-та.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
