public function integer of_listdir (readonly string as_root, ref string as_dirs[], ref string as_files[]);
n_cst_kernel32 k32
n_cst_kernel32`win32_find_dataa finddata

String ls_dirs[], ls_files[]
long h
Long li_f =  0 , li_d =  0 
as_dirs[] = ls_dirs[]
as_files[] = ls_files[]

h = k32.FindFirstFile(as_root, finddata)
If h <=  0  Then Return - 1  
Do
	If finddata.cfilename = "." or finddata.cfilename = ".." Then Continue
	If of_GetBit(finddata.dwfileattributes,  4 ) =  1  Then
		li_d ++
		as_dirs[li_d] = finddata.cfilename
	Else
		li_f ++
		as_files[li_f] = finddata.cfilename
	End IF
Loop While k32.FindNextFile(h, finddata)
k32.FindClose(h)
Return  1 
end function
public function integer of_getbit (ulong al_number, integer ai_bit);
Return Mod(Truncate(al_number/( 2 ^ai_bit),  0 ),  2 )
end function

type win32_find_dataa from structure
	unsignedlong		dwfileattributes
	filetime		ftcreationtime
	filetime		ftlastaccesstime
	filetime		ftlastwritetime
	unsignedlong		nfilesizehigh
	unsignedlong		nfilesizelow
	unsignedlong		dwreserved0
	unsignedlong		dwreserved1
	character		cfilename[ 260 ]
	character		calternatefilename[ 14 ]
end type

public function integer of_builduserregistrymenu (readonly string as_rootdir, ref menu am_menu);m_registry_item m
menu m_sub 
am_menu = Create menu

n_util u
String ls_dirs[], ls_files[]
Long li_i, li_in, li_dirs =  0 , li_files =  0 
If u.of_ListDir(as_rootdir + "\*.*", ls_dirs[], ls_files[]) >  0  Then
	li_in = UpperBound(ls_dirs[])
	For li_i =  1  To li_in
		If of_BuildUserRegistryMenu(as_rootdir + "\" + ls_dirs[li_i],m_sub ) >  0  Then
			li_dirs ++
			am_menu.item[li_dirs] = m_sub//.item[ 1 ]
			am_menu.item[li_dirs].Text = ls_dirs[li_i]
			
		End IF
	Next
	li_in = UpperBound(ls_files[])
	If li_dirs>  0  and li_in >  0  Then
		m_sub = Create menu
		li_dirs ++
		am_menu.item[li_dirs] = m_sub//.item[ 1 ].item[ 1 ]
		m_sub.Text = "-"
	End IF
	li_files = li_dirs
	For li_i =  1  To li_in
		If Lower(Right(ls_files[li_i],  4 )) = ".rgd" Then
			li_files ++
			m = Create m_registry_item
			am_menu.item[li_files] = m.item[ 1 ].item[ 1 ]
			am_menu.item[li_files].Text = Left(ls_files[li_i], Len(ls_files[li_i]) -  4 )
			am_menu.item[li_files].Tag = as_rootdir + "\" +ls_files[li_i] 
		End IF
	Next
End IF

If li_files >  0  Then
	Return  1 
Else
	Return - 1 
End IF

end function