[求助]：请教：如何用vlisp获取某个文件夹内所有文件？

TYEEXDD

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

wkq004

和你有同样的问题,等待高手.

caddog

试试看我这个函数
尝试了用递归来解决读取子目录下文件和下级子目录内的文件。

2. 
   
3.   [FONT=courier new]
   
4. ;;;返回用户指定目录下的指定类型文件，是否返回子目录内文件由directories控制
   
5. ;;;调用方法：
   
6. ;;;如：(hj:getFNfromDir  "e:\\cad"   "*.dwg"  0)
   
7. ;;;将返回一个有文件名构成的表表
   
8. s
   
9. (defun hj:getFNfromDir (directory FNtype directories /  #fileNames# #fileDir# #fileDir-1# #fileNames-2#)
   
10.   ;;directories 0   列出文件和目录（缺省值）。
    
11.   ;;directories 1   仅列出文件。
    
12.   
    
13.   
    
14.   (if directory
    
15.     (progn
    
16.       (setq #fileNames-2# (VL-DIRECTORY-FILES directory FNtype))
    
17.       (if #fileNames-2#
    
18.         (setq #fileNames-2# (mapcar '(lambda(z)(strcat directory "\" z))#fileNames-2#))
    
19.         )
    
20.       (setq #fileNames#(append  #fileNames# #fileNames-2#))
    
21.       (if (= directories 0)
    
22.         (progn
    
23.         (setq #fileDir# (VL-DIRECTORY-FILES directory nil -1))
    
24.         (setq #fileDir# (vl-remove "." #fileDir#))
    
25.         (setq #fileDir# (vl-remove ".." #fileDir#))
    
26.         (if #fileDir#
    
27.           (progn
    
28.             (setq #fileDir# (mapcar '(lambda(x)(strcat directory "\" x)) #fileDir#))
    
29.             (foreach #fileDir-1# #fileDir#
    
30.               ;;(setq #fileNames#(append #fileNames#(VL-DIRECTORY-FILES #fileDir-1# "*.dwg")))
    
31.               (setq #fileNames#(append #fileNames#(hj:getFNfromDir  #fileDir-1# FNtype 0)))
    
32.               );_end foreach
    
33.             );_end progn
    
34.           )
    
35.         );_end progn
    
36.       )
    
37.     )
    
38.   )
    
39.   ;;(mapcar '(lambda(y) (strcat directory "\" y)) #fileNames#)
    
40.   #fileNames#
    
41.   )
    
42. 
    
43.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;返回用户指定目录下的指定类型文件，是否返回子目录内文件由directories控制<br /> ;;;调用方法：<br /> ;;;如：(hj:getFNfromDir  "e:\\cad"   "*.dwg"  0)<br /> ;;;将返回一个有文件名构成的表表<br /> s<br /> (defun hj:getFNfromDir (directory FNtype directories /  #fileNames# #fileDir# #fileDir-1# #fileNames-2#)<br />   ;;directories 0   列出文件和目录（缺省值）。<br />   ;;directories 1   仅列出文件。<br />   <br />   <br />   (if directory<br />     (progn<br />       (setq #fileNames-2# (VL-DIRECTORY-FILES directory FNtype))<br />       (if #fileNames-2#<br />         (setq #fileNames-2# (mapcar '(lambda(z)(strcat directory "\" z))#fileNames-2#))<br />         )<br />       (setq #fileNames#(append  #fileNames# #fileNames-2#))<br />       (if (= directories 0)<br />         (progn<br />         (setq #fileDir# (VL-DIRECTORY-FILES directory nil -1))<br />         (setq #fileDir# (vl-remove "." #fileDir#))<br />         (setq #fileDir# (vl-remove ".." #fileDir#))<br />         (if #fileDir#<br />           (progn<br />             (setq #fileDir# (mapcar '(lambda(x)(strcat directory "\" x)) #fileDir#))<br />             (foreach #fileDir-1# #fileDir#<br />               ;;(setq #fileNames#(append #fileNames#(VL-DIRECTORY-FILES #fileDir-1# "*.dwg")))<br />               (setq #fileNames#(append #fileNames#(hj:getFNfromDir  #fileDir-1# FNtype 0)))<br />               );_end foreach<br />             );_end progn<br />           )<br />         );_end progn<br />       )<br />     )<br />   )<br />   ;;(mapcar '(lambda(y) (strcat directory "\" y)) #fileNames#)<br />   #fileNames#<br />   )<br /> <br />   [/FONT]<br />

791221ni

;;;返回用户指定目录下的指定类型文件
;;;调用方法：
;;;如：(getnamelist  "e:/cad"   "*.dwg")
;;;将返回一个有文件名构成的表
(defun getnamelist (path type / fileslist files1 files2)
(setq list1 nil
     fileslist nil
)
(while path
(setq list1 (append list1 (vl-directory-files path type 1))
files1 (cdr (cdr (vl-directory-files path nil -1)))
files2 (mapcar '(lambda (x) (strcat path "/" x)) files1)
fileslist (append (cdr fileslist) files2)
path (car fileslist)
)
)
list1
)

wkq004

请问怎样发像3楼那样带有格式的代码,我每次把代码一粘贴上来就和4楼一样了.

TYEEXDD

谢谢 caddog 和 791221ni  两位大侠的帮助！经测试，二位的程序都能实现预定功能，但有不同的是 791221ni  的只返回文件名，而 caddog  的能返回每个文件的全路径名，实际应用中可能更加实用。不管如何，多谢二位相助！学习，谢谢！

791221ni

;;;返回用户指定目录下的指定类型文件全路径名
;;;调用方法：
;;;如：(getnamelist  "e:/2"   "*.dwg")
;;;将返回一个有文件名构成的表
(defun getnamelist (path type / fileslist files1 files2)
(setq list1 nil
     fileslist nil
)
(while path
(setq list1 (append list1 (mapcar '(lambda (x) (strcat path "/" x)) (vl-directory-files path type 1)))
files1 (cdr (cdr (vl-directory-files path nil -1)))
files2 (mapcar '(lambda (x) (strcat path "/" x)) files1)
fileslist (append (cdr fileslist) files2)
path (car fileslist)
)
)
list1
)

ryljun

不错，实用!又要怎样才不显示子目录的文件？

lixiangdfeng

的确好用，学习了