Sorry your browser is not supported!

Type FileList
   Name as string
   Folder as integer
   Child as integer
EndType

EDITOR_CreateObjectTree(get dir$(),0)
wait key

Function EDITOR_CreateObjectTree(CurrentPath as String, child as integer)
   local dim files(0) as FileList
   empty array files(0)

   local name$

   set dir CurrentPath
   find first
   while get file type() >= 0
      rem if get file type()=0 and right$(get file name$()=".bmp"

      if right$(get file name$(),2)=".x"
         name$=left$(get file name$(),len(get file name$())-2)
         name$=get file name$()
         array insert at bottom files()
         files().Name=name$
         files().Folder=0
      EndIf

      if get file type()=1 and get file name$()<>"." and get file name$()<>".."
         array insert at bottom files()
         files().Name=get file name$()
         files().Folder=1
      endIf
      find next
   endwhile

   for i=0 to array count(files(0))
      rem files(i).child=addTreeViewItem(EditTracksBlockList,child,0,files(i).Name)
   next

   for i=0 to array count(files(0))
      rem if files(i).folder=1 then EDITOR_CreateObjectTree(CurrentPath + "\" + files(i).Name, files(i).Child)
   next

endfunction

Type myType
   value as integer
EndType

activate(1,0)

print "DONE"
wait key
end

Function activate(test as integer,integ as integer)
local dim files() as myType
empty array files()
endfunction