SysTreeView32 show folder contents and QM folder contents

[ssimop]

Dear Gintaras,

It worked perfectly using recursively the following statements :
Function tempf03

Code:

Copy      Help

,,,sub.AddFolderChildren htv htvi a[i]
,,,SendMessage htv TVM_EXPAND TVE_EXPAND htvi
,,,key D           ;; Down
,,,htvi=SendMessage(htv TVM_GETNEXTITEM TVGN_CARET 0)
,,,i=TvGetParam(htv htvi)

I wonder whether there exists any alternative, indeed in what it concerns the

key D

directive, which I would like to avoid.

Many thanks in advance.