文件夹目录下的子文件夹如何排序？

xtdwynij

(defun EF-Lib-getLibList ( / tmplist n)  (setq $EF_LibList (vl-directory-files $EF_LibPath "*.*" -1)) ;图库名列表  (while $EF_LibList    (cond ((equal (car $EF_LibList) ".")           nil           )          ((equal (car $EF_LibList) "..")           nil           )          (T           (setq tmplist (cons (car $EF_LibList) tmplist))           )          )    (setq $EF_LibList (cdr $EF_LibList))    )  (setq $EF_LibList (reverse tmplist))  (setq n 0)  (setq $EF_LibList (mapcar '(lambda (e)                               (setq n (1+ n))                               (cons n e)                               )                            $EF_LibList                            )        )  )
以上是获取系统文件夹下所有的子文件夹，那么问题来了，怎么样才能排序这些文件夹呢？

kmliro_2017

谢谢分享！！！！！

aisong220