'=====================================================================
' Выделение в панелях одноимённых файлов и/или папок
' Параметры: "%P" "%T" <файлы/каталоги/всё: 1/2/3>
'======================= Путь к утилите TCFS2 ========================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
Clip = "%COMMANDER_PATH%\Utils\clip.exe"
'=====================================================================
With CreateObject("WScript.Shell")
Clip = .ExpandEnvironmentStrings(Clip)
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List1
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
FSO.OpenTextFile(TempFile, 2, True, -1).Write List2
.Run """" & TCFS2 & """ /ef msg($0B,0) tcm(2033,0) send({TAB})",,True
.Run "%comspec% /c """"" & Clip & """ < """ & TempFile & """""", 0, True
.Run """" & TCFS2 & """ /ef tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "cmd /c type|" & Clip,0
End With : FSO.DeleteFile TempFile, 1 : D.RemoveAll : G.RemoveAll : Set D = Nothing
Set G = Nothing : Set Items = Nothing : Set FSO = Nothing : WScript.Quit |