Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Открытие выделенных файлов во вкладках 
Author Message
LonerD



PostPosted: Thu Oct 25, 2018 01:45    Post subject: Reply with quote

Flasher wrote:
По части — закавычил цикл. И с TCFS2 пример добавил. Проверь.
Открытие в разных панелях похоже на конфликт с резидентными скриптами.

То же самое поведение на рабочем тотале. То не все каталоги открываются, то открываются в той же панели. Только у меня нет резидентных скриптов Rolling Eyes Пока не представляю, из-за чего такое поведение. Видимо, какая-то настройка "тормозит" процесс открытия вкладок одна сразу за другой, они просто не успевают открыться все и с заданными параметрами...
Попробовал на чистом Тотале - чётко отрабатывают оба варианта.

==========

Заодно родился такой скрипт на AutoHotkey.

Code:
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Total Commander DreamLair                        ;
; Script: Open selected dirs/files in new tabs     ;
; Скрипт: Відкрити виділені файли/каталоги в нових вкладках
; Скрипт: Открыть выделенные файлы/каталоги в новых вкладках
; Script version: 1.0 (2018.10.25)                 ;
; Script author: LonerD                            ;
; Site: https://dreamlair.net                      ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Parameter:                                       ;
;  1) %WL (required)                               ;
;  2) T - open in target panel                     ;
;  3) D - open only directories                    ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;

#NoEnv
#NoTrayIcon
#SingleInstance force

if not ( WinExist("ahk_class TTOTAL_CMD") || WinActive("ahk_class TTOTAL_CMD") )
  ExitApp
EnvGet, commander_exe, commander_exe

if 0 < 1
  ExitApp
Filelist = %1%
Panel = %2%
OnlyDirs = %3%

TagPanel := Panel = "T" ? "/R=" : "/L="

Loop, Read, % Filelist
{
  if !InStr(FileExist(A_LoopReadLine), "D") & ( OnlyDirs = "D" )
    Continue
  RunWait, % commander_exe " /O /S /T " TagPanel """" A_LoopReadLine """"
  Sleep, 200
}

ExitApp


==========

Второй вариант с открытием через отправку TC команды CD.

==========
PS. Строка "Sleep, 200" нужна для стабильной работы с установленным плагином TWinKey (добавляется небольшая пауза между открытиями вкладок). Если плагин не используется, то скорее всего для быстроты работы эту строку можно удалить.
_________________
Windows 11 | TC DreamLair eternal pre-α


Last edited by LonerD on Thu Oct 25, 2018 03:04; edited 2 times in total
View user's profile Send private message Visit poster's website ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group