MultiCopy

Название MultiCopy
Имя файла (*.txt) MultiCopy.txt
Описание Копирует выделенные файлы во все вкладки на противоположной панели
Автор Вахмурка
Параметры ("%L")
Вызываемые плагины win, file, vec
Иконка
Версия 3.0
Дата обновления 20.08.17
;;Если wincmd.ini находится не в директории Windows, укажите его полный путь: 
global Config = env("WINDIR") ++ "/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)

if(win.sendmessage(hwnd, 0x400+50, 1000, 0) == 1) do
;Sub_ReadTabs - имя скрипта ReadTabs
	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

;Sub_Progress - имя скрипта Progress
.Subs\Sub_Progress(0, 0, Total, 0, 5000, "/", "")

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
			.Subs\Sub_Progress@Current(Str)
			file.copy(v[j], Target)
		endfor
		Panel++
	endif
endfor

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

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


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