EnumQmFolder to emumerate everything.

[ssimop]

OK, I found an easy way to do it.

Function tempf1

Code:

Copy      Help

str sFolder
QMITEM q
type __MF_DATA_SES str*sp str'st str'slt level flags htv ARRAY(int)qid int'iSubF int'FolOnly
__MF_DATA_SES d

sFolder=""
d.iSubF=1
d.FolOnly=1
EnumQmFolder sFolder 1 &MF_List &d
int k=d.qid.len
out k