请教如何用vlisp获取某个文件夹内所有文件？

tyxdd

如题，请教如何用vlisp获取某个文件夹内所有文件？比如D:\\abc内的所有dwg文件？用vl-directory-files可以列出指定文件夹内的所有文件，但是其子文件夹内的文件如何获取？？如果该文件夹内含有多个、多级子文件夹呢，这些子文件夹内的文件是如何取得呢？？求助各位大侠高人解答下，不胜感激！
附：我只会lisp，请告知lisp方法，多谢！

caoyin

(defun GetFileList (dirName / files lst)
  (setq dirName (path-addBackSlash dirName)
        files   (mapcar '(lambda (x) (strcat dirName x)) (vl-directory-files dirName "*.dwg" 1))
  )
  (mapcar '(lambda (x) (setq lst (append lst (GetFileList (strcat dirName x)))))
          (vl-remove-if '(lambda (x) (member x '("." "..")))
                        (vl-directory-files dirName nil -1)
          )
  )
  (append files lst)
)

(defun path-addBackSlash (path)
  (if (not (member (substr path (strlen path)) '("\\" "/")))
    (strcat path "\\") path
  )
)

tyxdd

要的就是这效果啊！！感谢，太感谢了！！

caoyin大哥你太伟大了！！真是高人啊！我真是佩服得五体投地，无限钦佩无以复加！没想到我的问题这么快就迎刃而解，我自己用循环函数编，怎么也解决不了，那个恼人的("." "..")不知如何处理！经测试您的程序完全达到要求，谢谢，再次感谢您，以及感谢明经社区！！我爱你们！！

caoyin

不必客气

我以前也是用while，现在用程序自身循环的方法感觉稍简洁一些

tyxdd

还有，lisp真是个奇妙而让人琢磨不透的东西，有时觉得它局限性太大，功能太单一，可有时候高手们寥寥数行程序，简简单单的就解决了非常难缠的难题！！不由又让人五体投地悠然神往啊！仰慕和向往高手们的境界，太神奇太厉害了，caoyin大哥简直是惊为天人啊，我要再好好学习研究下lisp函数，再次拜谢，有时间再来向您请教。

pengfei2010

学习了  正在找相关资料

nzl1116

晒晒我的方法，速度肯定没版主的快，功能有点出入

2. 
   
3. (defun GetAllFile (Dire / SubFile)
   
4.   (setq        SubFile        (vl-remove-if
   
5.                   (function (lambda (x) (member x '(".." "."))))
   
6.                   (vl-directory-files Dire nil 0)
   
7.                 )
   
8.   ))
   

<br /> (defun GetAllFile (Dire / SubFile)<br />   (setq        SubFile        (vl-remove-if<br />                   (function (lambda (x) (member x '(".." "."))))<br />                   (vl-directory-files Dire nil 0)<br />                 )<br />   ))<br />

davide888

谢谢  学习了