Filling ImageList Editor Window with a List of .ico files

[ssimop]

I am in need to fill the ImageList Editor Window with a List of .ico files to build a rather long image list. I have tried applying various approaches, but the common stiffness was "hung window". I attach herewith one of these approaches, more or less working, but it proved to be too slow. Any idea or recommendation will be appreciated. Many thanks in advance.

Function tempf05

Code:

Copy      Help

;www.quickmacros.com/forum/viewtopic.php?p=19931
opt hungwindow 3
str s="C:\Documents and Settings\icons\Ico\help1.ICO"
s.setclip
sub.IL_Paste
s="C:\Documents and Settings\icons\Ico\help2.ICO"
s.setclip
sub.IL_Paste

#sub IL_Paste
opt hungwindow 3
int w=win("ImageList Editor" "#32770")
Acc a.Find(w "LIST" "" "class=SysListView32[]id=3" 0x1004)
accMouse(a)
0.25
key Cv

[Gintaras]

Not very slow here. About 1 or 2 s for 1400 icons. To test, I did not use your macro, but pasted a list of ico file paths found in c:\program files.

[ssimop]

Thank you for your time. If I understand well, you copied/pasted manually (by hand) not using any code. I agree absolutely with you, the delay is due to the code. Could you please suggest something better? If not, I will have to use code to screen/copy the .ico files of interest to another folder and then copy/paste by hand. Best regards.

[Gintaras]

I used something like this to copy. Then pasted manually.

Macro Macro272

Code:

Copy      Help

Dir d
str s
foreach(d "$Program Files$\*.ico" FE_Dir 4)
,str path=d.FullPath
,s.addline(path)
s.setclip

[ssimop]

Many thanks, Best Regards !