SOS récursivité !

[ElpanovEvgeniy]

(ACET-FILE-DIR "acad.exe" "C:\\Program Files")
(ACET-FILE-DIR "acad*.lsp" "C:\\Program Files") 

 

[ElpanovEvgeniy]

:)

 

 (defun GetFolders (p)
 ;(GetFolders '("C:\\Program Files\\AutoCAD 2004"))
 (if p
   (append
     p
     (GetFolders
       (apply (function append)
              (mapcar
                (function (lambda (b)
                            (mapcar (function (lambda (a) (strcat b "\\" a)))
                                    (vl-remove ".."
                                               (vl-remove "." (vl-directory-files b nil -1))
                                    )
                            )
                          )
                )
                p
              )
       )
     )
   )
 )
)