有没有递归遍历文件夹及其子文件夹中所有文件的方法

bluef · 发表于 2020-11-3 10:26:43

您需要登录才可以下载或查看，没有账号？立即注册

×

想要找出文件夹内所有的dwg文件，包括所有子文件夹（可能有多级子文件夹）中的dwg文件，返回所有的dwg文件路径。
有没有好的方法，求助大神们...

xk15c · 发表于 2020-11-4 02:59:54

本帖最后由 xk15c 于 2020-11-4 03:01 编辑

这是用工具。

ketxu · 发表于 2020-11-4 11:51:24

(defun ST:File_GetAll ( Dir typ ) ;@ketxu
(append (mapcar '(lambda ( x ) (strcat Dir "\" x)) (vl-directory-files Dir typ 1))
(apply 'append
(mapcar '(lambda ( x ) (ST:File_GetAll (strcat dir "\" x) typ))
(cddr (vl-directory-files dir "*" -1))
)
)
)
)

Dir : Main Directory
Typ : File of type, ex "*.dwg"

xk15c · 发表于 2020-11-5 04:57:40

楼上的厉害

yoyoho · 发表于 2020-11-5 11:58:15

谢谢! ketxu 分享学习!!!!!!

账号		自动登录	找回密码
密码			立即注册

[求助] 有没有递归遍历文件夹及其子文件夹中所有文件的方法