local F = far.Flags
Macro {
description="Make hardlink for current file to selected files"; name="Make hardlink"; area="Shell"; key="";
action=function()
local Info = panel.GetPanelInfo(nil,1)
local CurDir = APanel.Path0.."\\"
local FSource = panel.GetCurrentPanelItem(nil,1).FileName
local result = far.Message(FSource.."\nreplace ALL selected files!","Achtung!!!",";YesNo","w")
if result==1 then
for i = 1,Info.SelectedItemsNumber do
local FTarget = panel.GetSelectedPanelItem(nil,1,i).FileName
if FTarget~=FSource then
win.DeleteFile(CurDir..FTarget)
far.MkLink(CurDir..FSource,CurDir..FTarget,F.LINK_HARDLINK,F.MLF_SHOWERRMSG+F.MLF_DONOTUPDATEPANEL)
end
end
panel.UpdatePanel(nil,1,false)
panel.RedrawPanel(nil,1)
end
end;
}
|
