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; } |