Suggestion for SysListView32

[ssimop]

This is my suggestion :

Code:

Copy      Help

int+ hwnd=win
int+ vFileList=id(1 hwnd)
str vCurrentFile

int item=-1
GetListViewItemText(vFileList item &vCurrentFile 0 2 &item)
int i n
int hwl=child("FolderView" "SysListView32" hwnd 0x1)
n=SendMessage(hwl LVM_GETITEMCOUNT 0 0)

for i item n
,GetListViewItemText(hwl i &vCurrentFile)
,out vCurrentFile
,Acc a=acc(vCurrentFile "LISTITEM" hwnd "id=1" "" 0x1000)
,a.Select(SELFLAG_TAKEFOCUS|SELFLAG_TAKESELECTION)
,;; any other statements
,
ret

Best regards