Total Commander

Volniy писал(а):Только это работать все равно не будет

Volniy писал(а):Но ведь есть же иной способ, и он-то как раз нормально описан в ридми:

Batya писал(а):Всё бы хорошо, только виртуальную папку "Рабочий стол" так не откроешь

Batya писал(а):А для обычной папки не нужны скрипты, достаточно кнопки:

DoctorIkari писал(а):Что-то напортачил, в общем получилась такая белиберда:

Код: Выделить всё

Path = WScript.Arguments(d:\Users\winRoot\Desktop\!_KAKASHKA_!)

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\TOTALCMD.EXE /S /O /T /L="%$DESKTOP%\!_KAKASHKA_!"

%COMMANDER_PATH%\TOTALCMD.EXE,6
Открыть Рабочий стол/NamePath в новой вкладке


-1

DoctorIkari писал(а):Если закрыть созданную копию, то мы переходим на следующую вкладку справа, а не на исходную с которой делали копию. ..
НО. .. курсор на новой вкладке оказывается на выбранном файле, а не вначале (хотя, кто знает.. может это и к лучшему)

'Закрыть вкладку с переходом на предыдущую
'курсор в начало списка
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_CloseCurrentTab"
TCS.SendCommand "cm_SwitchToPreviousTab"
TCS.SendKeystroke "{HOME}"
Set TCS = Nothing
WScript.Quit

DoctorIkari писал(а):выбивает ошибку (...строка 5, символ 1...)

TCS.SendKeystroke "CD d:\Users\winRoot\Desktop\!_KAKASHKA_!"

TCS.SendKeystroke "CD " & Replace(WScript.Arguments(0), """", "")

Flasher писал(а):Видимо, мне так запала в голову та конструкция, что не удержался.

'Открыть указанную папку в новой вкладке 
'Параметры: "<PATH>" 
Path = WScript.Arguments(0) 
With CreateObject("WScript.Shell") 
  TCPath  = .ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe" 
  .Run """" & TCPath & """ /S /O /T /L=""" & Path & """"' 
End With
WScript.Quit

Tol!k писал(а):А чего ж не работает стандартная тоталовская команда?

[________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

With CreateObject("WScript.Shell") .Run """" & .ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"" /S /O /T /L=""" & WScript.Arguments(0) & """" End With

Volniy писал(а):Flasher, а вот если все одной строкой, так может оно еще круче, а?

Flasher писал(а):А выход WScript.Quit тут не обязателен?

If the Quit method is the final instruction in your script (and you have no need to return a non-zero value), you can leave it out, and your script will end normally.

Volniy писал(а):а вот если все одной строкой, так может оно еще круче, а?

Flasher писал(а):Ну, если посмотреть на большинство скриптов на форуме, то эта строка как раз последней и идёт. Её только в циклах имеет смысл использовать?

Flasher писал(а):Её только в циклах имеет смысл использовать?

WScript.Quit (1);

Batya писал(а):Смысл имеет использовать не в циклах , а в конструкциях ветвления таких, как If ... Else ... End If

Volniy писал(а):P.S. Ребята, а мы тему, случаем, не перепутали?