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

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

      temp=itemCount(ObjectList)
      set cursor 250,100
      print temp