;;; 功能：获取目录内全部文件名;;; 日期：zml84 于 2010-10-22(vl-load-com)(defun C:ml () (princ "\n获取目录内全部文件名。") (if (setq FILE (getfiled "选择文件夹内一个文件" "" "" 4 ) ) (progn (setq path (vl-filename-directory
;;; 功能：获取目录内全部文件名
;;; 日期：zml84 于 2010-10-22
(vl-load-com)
(defun C:ml ()
(princ "\n获取目录内全部文件名。")
(if (setq FILE (getfiled "选择文件夹内一个文件"
"" ""
4 ) )
(progn (setq path (vl-filename-directory FILE)
filelist (vl-directory-files path "*.*")
)
;;
(print "========================")
(print path)
(print "========================")
(foreach n (cddr filelist) (print n))
(print "========================")
) )
(princ)
)
