Macro {
description="Copy with folders tree";
area="Shell"; key="ShiftF5";
flags="NoPluginPanels"; -- флаг дополнен чтобы макрос не мешал плагину Polygon
action = function()
local h=Far.DisableHistory(-1)
if not APanel.Selected then Panel.Select(0,1,1,0) end
local PP=PPanel.Path0
while APanel.SelCount>0 do
Panel.SetPosIdx(0,1,1)
local AC=Panel.Item(0,0,0)
local AP=APanel.Path0
if AC:match("^\\\\") then
win.CreateDir(PP..AP:sub(2,-1))
win.CopyFile(AC,PP..AC:sub(2,-1))
else
if AC:match("^[A-Z]:\\") then
win.CreateDir(PP..AP:sub(3,-1))
win.CopyFile(AC,PP..AC:sub(3,-1))
else
Keys("ShiftF5") print(PP.."\\"..AC) Keys("Enter")
end
end
Panel.Select(0,0,1)
end
Far.DisableHistory(h)
end
}
--http://forum.ru-board.com/topic.cgi?forum=5&topic=49572&start=420#14
|
