【K:GetSubPath】返回给定路径的所有子路径

kucha007

1. ;返回给定路径下的所有子路径(递归)
   
2. (defun K:GetSubPath (Path / Folder)
   
3.   (mapcar
   
4.     '(lambda (x)
   
5.       (setq Folder (strcat Path "\\" x))
   
6.       (cons Folder (apply 'append (K:GetSubPath Folder)))
   
7.     )
   
8.     (cddr (vl-directory-files Path nil -1))
   
9.   )
   
10. )
    

;返回给定路径下的所有子路径(递归)<br /> (defun K:GetSubPath (Path / Folder) <br />   (mapcar <br />     '(lambda (x) <br />       (setq Folder (strcat Path "\\" x))<br />       (cons Folder (apply 'append (K:GetSubPath Folder)))<br />     )<br />     (cddr (vl-directory-files Path nil -1))<br />   )<br /> )<br />

假设我们给定一个路径：

1. (setq CurPath "C:\\XX")
   

(setq CurPath "C:\\XX")<br />

可以这样获取所有路径(包含给定路径本身)

1. (setq PathLst (apply 'append (cons (list CurPath) (K:GetSubPath CurPath))))
   

(setq PathLst (apply 'append (cons (list CurPath) (K:GetSubPath CurPath))))<br />