Flasher
|
 Posted: Wed Aug 05, 2015 07:37 Post subject: |
 |
|
| gora wrote: | | то появляется окно и в нем надпись об ошибке |
Окно чего? Если Листера, то в чём я не прав?
| gora wrote: | | Но окно листера все равно не появляется. |
Коли так, то либо плагин неверно настроен под соотв. расширения, либо ТС не x32.
| gora wrote: | | дальнейшую борьбу со скриптом можно завершить |
Судя по описанию проблемы, дело не в скрипте.
Но это было вовсе не решение, а затравка. Такие вещи, лучше на перечисленных ранее языках проделывать. Либо использовать доп. компонент. А без него навскидку можно разве что вызывать скрипт, назначенный на F3:
| Code: | ' Параметр: %N
Name = WScript.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
If Ubound(Filter(Split("exe dll ocx wcx wlx wdx wfx"), LCase(FSO.GetExtensionName(Name)))) < 0 Then
WSH.SendKeys "{F3}"
Else
' Сделать одни дела
Set Exec = CreateObject("Wscript.Shell").Exec("%COMMANDER_EXE% /S=L:FileInfo")
Do Until Exec.Status : WScript.Sleep 300 : Loop
' Cделать другие дела
End If |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
