[原创]搜索目录下文件

lockmyeye

1. ;;;搜索目录下文件
2. ;;;(findfiles_in_dir "E:\" "*.DWG" T)
3. ;;;find_dir  搜索目录
4. ;;;file_type  文件匹配符
5. ;;;find_subdir  是否搜索子目录
6. (DEFUN findfiles_in_dir (find_dir file_type find_subdir / result tmp)
7.        (SETQ find_dir (VL-STRING-TRANSLATE "\" "/" find_dir) ;_目录名的\转为/
8.                    find_dir (IF (= "/" (SUBSTR find_dir (STRLEN find_dir)))
9.                                              find_dir
10.                                              (STRCAT find_dir "/")
11.                                      ) ;_目录名最后必须以/结束
12.        )
13.        ;;检索选择目录下的文件
14.        (SETQ result (MAPCAR '(LAMBDA (x) (STRCAT find_dir x)) (VL-DIRECTORY-FILES find_dir file_type 1)))
15.        ;;检索选择子目录下的文件
16.        (IF find_subdir
17.                (MAPCAR '(LAMBDA (x)
18.                                          (IF (NOT (WCMATCH x ".,.."))
19.                                                  (IF (SETQ tmp (findfiles_in_dir (STRCAT find_dir x) file_type find_subdir))
20.                                                          (SETQ result (APPEND result tmp))
21.                                                  )
22.                                          )
23.                                  )
24.                                (VL-DIRECTORY-FILES find_dir "*.*" -1)
25.                )
26.        )
27.        result
28. )

复制代码

flowerson

加上 可以搜索文件夹那就更棒了！

fdb2007

编程有用，学习了

清风明月名字

谢谢楼主的分享，非常好，收藏备用了！