MultiCopy

Название MultiCopy
Имя файла (*.txt) MultiCopy.txt
Описание Копирует выделенные файлы во все вкладки на противоположной панели
Автор Вахмурка
Параметры ("%L")
Вызываемые плагины win, tc, file, vec, osd
Иконка
Версия 2.0
Дата обновления 08.06.2009
global Config = "путь/wincmd.ini"
local hwnd = win.handle("c=TTOTAL_CMD")
local i, j, T, Target, Panel, Opp
global TT = cl.Create("Tabs", 1)
win.sendmessage(hwnd, 0x400+51, 580, 0)

;Sub_ReadTabs - имя скрипта ReadTabs
if(tc.active(hwnd) == "left") do
	T = runfile.Subs\Sub_ReadTabs("right")
	Opp = 2
else
	T = runfile.Subs\Sub_ReadTabs("left")
	Opp = 1
endif

if(T == 1) do
	win.sendmessage(hwnd, 0x400+51, 3101, 0)
	quit
endif

local Str = file.readall(arg(1))

local v = vec.createfromlines(Str)
if(v <= 0) do
	messagebox("ok error", "Vector not created", "VEC plugin error #1")
	quit
endif

local Counter = vec.length(v)
local Total = T*Counter

for(i = 0; i < TT.Length; i++)
	Target = TT.GetId(i)
	T = TT.GetMiddleCmd(i)
	if(T == Opp && validpath(Target)) do
		for(j = 0; j < Counter; j++)
			Str = Panel*Counter + j + 1
			Str = Str ++ " of " ++ Total ++ " files copied"
			osd.show(Str, "INFINITE", "30", "Arial", "-1", "255 000 000")
			file.copy(v[j], Target)
		endfor
		Panel++
	endif
endfor

osd.unload
vec.unload

Комментарии:

Внимание! Скрипт не работает в Total Commander 7.5 pb1 и pb2!

Все предельно просто - в текущей панели выделяем группу файлов и запускаем скрипт. Все файлы (или один, если ничего не выделено) будут скопированы во все директории, которым соответствуют вкладки противоположной панели.


На главную Все о Total Commander PowerPro PowerPro & Total Commander