获取目录内全部文件名.lsp

;;; 功能：获取目录内全部文件名


;;; 日期：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)
)

• 0人已收藏

• 0人已打赏

  免费
• 0人已点赞

• 分享

  复制链接 新浪微博 微信扫一扫