Macro {
area="Shell"; key="CtrlShiftA";
action=function()
local t = {}
for i=2,panel.GetPanelInfo(nil,1).ItemsNumber,2 do
local item = panel.GetPanelItem(nil, 1, i)
if not item.FileAttributes:find"d" then
t[#t+1]=i
end
end
panel.SetSelection(nil,1,t,true)
panel.RedrawPanel(nil,1)
end;
}
Macro {
area="Shell"; key="CtrlShiftB";
action=function()
Keys("Home")
while not APanel.Eof do
while APanel.Folder do Keys"Down" end
Keys("Ins Down")
end
end;
}

Last edited by Shmuel on Mon 29 Apr, 2019 10:31, edited 1 time in total.