Volniy

|
Posted: Fri Aug 13, 2010 18:33 Post subject: |
|
|
Tol!k wrote: | А чего ж не работает стандартная тоталовская команда? |
А это не совсем и стандартная команда, а одна из команд с параметром.
В отличие от обычных команд, которые можно выполнять, посылая окну тотала специальное сообщение с номером команды, эти команды не имеют нормальных номеров (см. цитату далее), а отрицательные номера им присвоены только для нужд локализации.
Quote: | [________Commands with parameters_________]=0
;These negative numbers are just used for translation and cannot be used instead of the commands
CD <directory>=-2;Switch to the given directory
OPENTABS <filename>=-3;Open tabs from saved .tab file
APPENDTABS <filename>=-4;Append tabs to existing tabs
FTPOPEN <conf. ftp server>=-5;Open stored ftp connection
SYNCOPEN <sync operation>=-6;Open stored sync operation
LOADSEARCH <stored search>=-7;Open stored search operation
OPENBAR <filename>=-8;Load button bar from file
MULTIRENAME <operation name>=-9;Open stored multi-rename operation
OPENCUSTOMVIEW <view name>=-10;Switch to custom columns view
|
Всего одна возможность передать команду с параметром была предоставлена Гислером и эта команда позволяет напрямую установить пути в открытых панелях. Именно эта команда и реализована в вызове методов SetSrcPath и SetTrgPath хелпера. Методы как методы, очень даже неплохо работают и даже позволяют не только сменить директорию, но еще можно и установить в ней указатель на нужный файл, а еще и при желании сделать все это в новой вкладке.
Не пойму я, чего вы боитесь ими пользоваться-то? На кой вообще нужен этот весьма глючный вариант TCS.SendKeystroke "CD d:\Users\winRoot\Desktop\!_KAKASHKA_!"
Flasher, а вот если все одной строкой, так может оно еще круче, а?
Code: | With CreateObject("WScript.Shell") .Run """" & .ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"" /S /O /T /L=""" & WScript.Arguments(0) & """" End With |
|
|