Flasher
|
 Posted: Tue Nov 22, 2016 19:02 Post subject: |
 |
|
Эта годится.
Добавлено спустя 40 минут:
| Dimsok wrote: | | если такого расширения не оказывается |
Скриптом можно проверять:
| Code: | '===================== VBS =====================
' Перейти к первому файлу с заданным расширением
' Условие: путь запуска - пустой
' Параметр: <расширение>
'================ Путь к TCFS2 =================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================
With CreateObject("WScript.Shell")
Set Items = CreateObject("Shell.Application").NameSpace(.CurrentDirectory).Items
Items.Filter 73920, "*." & WScript.Arguments(0)
If Items.Count Then _
.Exec TCFS2 & " /ef msg($0B,0) tcm(524) tcm(521,1) send(@`*.xml`,0) send({ENTER},0) " &_
"eval(send_wait(,findwnd(`TMyListBox`))) tcm(2023) tcm(524) tcm(2050) msg($0B,1) tcm(540)"
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Nov 22, 2016 20:00; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
