Flasher
|
 Posted: Mon Jul 23, 2018 22:42 Post subject: |
 |
|
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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Mon Jul 23, 2018 23:24; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
