Robin

prepareObjectBrowser:
   type ListObjSettings
      path as string
      object as string
      texture as string
      icon as string
   endtype
   dim ObjList(1000) as ListObjSettings
   CurrentListItem as integer : CurrentListItem = 1

   type ListFolderSettings
      name as string
   endtype
   dim FolderList(30) as ListFolderSettings
   CurrentFolderItem as integer : CurrentFolderItem = 1

   `ImageList = createImageList(120,120)
   `Sets the dir for media
   set dir "media/"
   find First
   while Get File Type() <> -1
      if Get File Type() = 1 then CurrentDir$ = Get File Name$()
      FolderList(CurrentFolderItem).name =  CurrentDir$
      CurrentFolderItem = CurrentFolderItem + 1
      find Next
   endWhile

   sets current found dir
   for folder = 1 to 50
            find first
      if FolderList(folder).name <> "" and Get File Type() = 1
         set dir FolderList(folder).name
            while Get File Type() <> -1
               if Get File Type() = 0 and right$(CurrentFile$,3)="dbo"
                  ObjList(CurrentListItem).path = "media/"+FolderList(folder).name
                  ObjList(CurrentListItem).object = CurrentFile$
                  for i = 1 to (len(CurrentFile$)-4)
                     tempFileName$ = tempFileName$ +  mid$(CurrentFile$,i)
                  next i
                  ObjList(CurrentListItem).texture = tempFileName$ + "_texture.png"
                  ObjList(CurrentListItem).icon = tempFileName$ + "_icon.png"
               endif
            endWhile
      endif
            find Next
   next folder
return