;;; 功能：获取目录内全部文件名
;;; 日期：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)
)