Sort items in a qm folder

[ssimop]

You may try the following script, and please let me know if you have any questions and/or comments.

Function QM_Items_Sort_Fo

Code:

Copy      Help

str name sfol sfol0

QMITEM q
int i=qmitem("" 1 &q)
if !i; err "Error"; ret
sfol0.getmacro(q.folderid 1)
inp sfol "Give folder name to sort" "Sort QM items in a folder" sfol0

ARRAY(QMITEMIDLEVEL) a
if(!GetQmItemsInFolder(sfol &a 1)) end "failed" ;; attention : a contains all level folders
name.getmacro(a[0].id 1)
ARRAY(str) Items
int nm=a.len

str sl unsrt
int n0=0
for i 0 nm
,if a[i].level=0
,,qmitem(a[i].id 0 q)
,,if q.itype=5; continue ;;exclude folderss
,,_s.getmacro(a[i].id 1)
,,Items[]=_s

Items.sort

;Start looping
BlockInput2 3
int n=Items.len
out n
for i 0 n
,mac+ Items[i]
,err
,,err "1"
,,end
,
,men 33074 _hwndqm
,0.5
,mac+ name
,0.5
,if i; key D

,men 33075 _hwndqm ;;Move checked
,name=Items[i]
,0.5

_s=F"Alphabetical Sorting concluded in folder : %s {sfol}"
out _s
BlockInput2 0
ret