[LISP程序]：请问如何遍历指定文件夹下的所有子文件夹

zxwbq

编一个程序，工作过程如下

1。用户输入指定文件夹名称
2。autocad自动进入该文件夹内的所有子文件夹，子子文件夹。。。
3。逐个进入子文件夹(子子文件夹)后，对文件夹内的dwg图片进行操作

以上的第二步请问如何实现？是否必须用vl-directory-files加循环的办法？
有没有现成的程序实现这个功能？

请高手指点，谢谢

eachy

如果你会用VBA、VB、ARX等就不必用什么VL

zxwbq

vb和vba会一点点，斑竹给介绍一下用vb或vba怎么实现这个功能吧？
谢谢拉

ericsywong

可试试用dos_lib 里的 dos_find 函数
参考网址：http://www.mcneel.com/doslib.htm

wkai

用vl-directory-files加递归实现

2. 
   
3. (defun zfl-file-foldersof (path sub / n re p)
   
4.   (setq re (list (strcase path)))
   
5.   (setq        p (cddr        (mapcar        '(lambda (x) (strcat path "\" x))
   
6.                         (vl-directory-files path "*.*" -1)
   
7.                 )
   
8.           )
   
9.   )
   
10.   (if p
    
11.     (progn
    
12.       (foreach n p
    
13.         (setq n (strcase  n))
    
14.         (if (/= sub 0)
    
15.         (setq re (append (zfl-file-foldersof n (if (= 'int (type sub)) (1- sub)sub)) re))
    
16.           
    
17.           )
    
18.       )
    
19.     )
    
20.      )
    
21. re
    
22. )
    

<br /> (defun zfl-file-foldersof (path sub / n re p)<br />   (setq re (list (strcase path)))<br />   (setq        p (cddr        (mapcar        '(lambda (x) (strcat path "\" x))<br />                         (vl-directory-files path "*.*" -1)<br />                 )<br />           )<br />   )<br />   (if p<br />     (progn<br />       (foreach n p<br />         (setq n (strcase  n))<br />         (if (/= sub 0)<br />         (setq re (append (zfl-file-foldersof n (if (= 'int (type sub)) (1- sub)sub)) re))<br />           <br />           )<br />       )<br />     )<br />      )<br /> re<br /> )<br />

例子

1. 
   
2. (zfl-file-foldersof "c:" 1)
   
3. ("C:\\EBAYTOOLS" "C:\\我的音乐" "C:\\VPSTUDIO" "C:\\PYTHON24" "C:\\WINDOWS" "C:\\JIEMIFOLDER" "C:\\CPDYJ" "C:\\RUBY" "C:\\DOWNLOADS" "C:\\KAV UPDATER UPDATE FILES" "C:\\RECYCLER" "C:\\RPC" "C:\\ARCHVISION" "C:\\TANGENT"  "C:\\FOUND.003" "C:\\C_DILLA" "C:\\TDDOWNLOAD" "C:\\THSWARE" "C:\\TEMP" "C:\\FOUND.002" "C:\\FOUND.001" "C:\\FOUND.000" "C:\\RECYCLED" "C:\\PROGRAM FILES" "C:")
   
4. _$
   

复制代码

eachy

2. 
   
3. ;;获取指定文件夹下的所有子文件夹
   
4. ;; (xdl-fl-getfolders "c:")
   
5. ;; (xdl-fl-getfolders "c:\\windows")
   
6. (defun xdl-fl-getfolders (path / fls result)
   
7.   (if (not (wcmatch path "*`."))
   
8.     (setq fls (vl-remove-if-not
   
9.                 '(lambda (x) (vl-file-directory-p x))
   
10.                 (mapcar        '(lambda (p) (strcat path "\" p))
    
11.                         (vl-directory-files path)
    
12.                 )
    
13.               )
    
14.     )
    
15.   )
    
16.   (if fls
    
17.     (setq fls (mapcar '(lambda (f / ff)
    
18.                          (if (not result) (setq result '()))
    
19.                          (if (setq ff (xdl-fl-getfolders f))
    
20.                            (setq result (append ff result))
    
21.                            (setq result (cons f result))
    
22.                          )
    
23.                        )
    
24.                       (vl-remove-if
    
25.                         '(lambda (p) (wcmatch p "*`."))
    
26.                         fls
    
27.                       )
    
28.               )
    
29.     )
    
30.   )
    
31.   (if result
    
32.     (append (list path) result)
    
33.     (list path)
    
34.   )
    
35. )

<br /> ;;获取指定文件夹下的所有子文件夹<br /> ;; (xdl-fl-getfolders "c:")<br /> ;; (xdl-fl-getfolders "c:\\windows")<br /> (defun xdl-fl-getfolders (path / fls result)<br />   (if (not (wcmatch path "*`."))<br />     (setq fls (vl-remove-if-not<br />                 '(lambda (x) (vl-file-directory-p x))<br />                 (mapcar        '(lambda (p) (strcat path "\" p))<br />                         (vl-directory-files path)<br />                 )<br />               )<br />     )<br />   )<br />   (if fls<br />     (setq fls (mapcar '(lambda (f / ff)<br />                          (if (not result) (setq result '()))<br />                          (if (setq ff (xdl-fl-getfolders f))<br />                            (setq result (append ff result))<br />                            (setq result (cons f result))<br />                          ) <br />                        )<br />                       (vl-remove-if<br />                         '(lambda (p) (wcmatch p "*`."))<br />                         fls<br />                       )<br />               )<br />     )<br />   )<br />   (if result<br />     (append (list path) result)<br />     (list path)<br />   )<br /> )

cy956

最初由 ericsywong 发布
[B]可试试用dos_lib 里的 dos_find 函数
参考网址：http://www.mcneel.com/doslib.htm [/B]

用doslib要注意延时，否则可能只生成了一部分表就被引用。

ybbhiuiu

看来需要提高啊！！！