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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
