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 |