function PerformObjectList()

   while itemCount(ObjectList) > 0
      removeItem ObjectList,0
   endwhile

   set dir "data\world_media\objects\"
      find first
         while get file type()>-1
         if get file type() = 1
            additem objectlist,get file name$()
         endif
         find next
      endwhile

endfunction