(defun get-list-keys (/ list_files result)
    (setq list_files (file_find_be_extension (strcat *geo_tools_root_dir* "\\data\\keys" )"txt"))
    (foreach file list_files
      (setq result (append  result (list (vl-filename-base file))))
      )
    result
    )