[求助]：如果知道文件夹路径，怎么知道它里面的文件

fengjianwei

如题，已知某个文件夹路径，怎么知道它里面的各个文件呢

snoopychen

menzi的函数

2. 
   
3. ; == Function MeGetFolders
   
4. ; Scans from current folder (recursive) for folders (and files).
   
5. ; Arguments [Type]:
   
6. ;   Fol = Root folder [STR]
   
7. ;   Pat = File name pattern
   
8. ;         - Not False: eg. *.*, *.dwg [STR]
   
9. ;         - False:     Folders only [BOOLEAN]
   
10. ;   Rec = Recursive flag [BOOLEAN]
    
11. ;         - True:  scan folders recursive
    
12. ;         - False: scan first folder level
    
13. ; Return [Type]:
    
14. ;   > If pattern argument False:
    
15. ;     '("Pth1" "Pth2"...) [LIST]
    
16. ;   > If pattern argument not False:
    
17. ;     '(("Pth1" '("Fil1" "Fil2"...)) ("Pth2" '(...))...) [LIST]
    
18. ; Notes:
    
19. ;   - If no files found in a folder, the file list returns a '("").
    
20. ;   - Deep folder structure slow down the function.
    
21. ;
    
22. (defun MeGetFolders (Fol Pat Rec / FolLst TmpFol)
    
23. (setq TmpFol (if (wcmatch Fol "*\") (substr Fol 1 (1- (strlen Fol))) Fol)
    
24.        FolLst (cons TmpFol (apply 'append (MeGetFoldersRec TmpFol Rec)))
    
25. )
    
26. (if Pat
    
27.   (mapcar
    
28.   '(lambda (l)
    
29.     (cons l (cond ((vl-directory-files l Pat 1)) ('(""))))
    
30.    ) FolLst
    
31.   )
    
32.   FolLst
    
33. )
    
34. )
    
35. ;
    
36. ; == Function MeGetFoldersRec
    
37. ; Recursive function for MeGetFolders.
    
38. ; Arguments [Type]:
    
39. ;   Fol = Folder [STR]
    
40. ;   Rec = Recursive flag [BOOLEAN]
    
41. ;         - True:  scan folders recursive
    
42. ;         - False: scan first folder level
    
43. ; Return [Type]:
    
44. ;   > Folder list '((Pth1) (Pth2)) [LIST]
    
45. ; Notes:
    
46. ;   Return value contain nil atoms.
    
47. ;
    
48. (defun MeGetFoldersRec (Fol Rec / TmpFol)
    
49. (mapcar
    
50. '(lambda (l)
    
51.    (if (not (wcmatch l "`.*"))
    
52.     (cons
    
53.      (setq TmpFol (strcat Fol "\" l))
    
54.      (if Rec (apply 'append (MeGetFoldersRec TmpFol Rec)))
    
55.     )
    
56.    )
    
57.   ) (vl-directory-files Fol nil -1)
    
58. )
    
59. )
    

<br /> ; == Function MeGetFolders<br /> ; Scans from current folder (recursive) for folders (and files).<br /> ; Arguments [Type]:<br /> ;   Fol = Root folder [STR]<br /> ;   Pat = File name pattern<br /> ;         - Not False: eg. *.*, *.dwg [STR]<br /> ;         - False:     Folders only [BOOLEAN]<br /> ;   Rec = Recursive flag [BOOLEAN]<br /> ;         - True:  scan folders recursive<br /> ;         - False: scan first folder level<br /> ; Return [Type]:<br /> ;   > If pattern argument False:<br /> ;     '("Pth1" "Pth2"...) [LIST]<br /> ;   > If pattern argument not False:<br /> ;     '(("Pth1" '("Fil1" "Fil2"...)) ("Pth2" '(...))...) [LIST]<br /> ; Notes:<br /> ;   - If no files found in a folder, the file list returns a '("").<br /> ;   - Deep folder structure slow down the function.<br /> ;<br /> (defun MeGetFolders (Fol Pat Rec / FolLst TmpFol)<br /> (setq TmpFol (if (wcmatch Fol "*\") (substr Fol 1 (1- (strlen Fol))) Fol)<br />        FolLst (cons TmpFol (apply 'append (MeGetFoldersRec TmpFol Rec)))<br /> )<br /> (if Pat<br />   (mapcar<br />   '(lambda (l)<br />     (cons l (cond ((vl-directory-files l Pat 1)) ('(""))))<br />    ) FolLst<br />   )<br />   FolLst<br /> )<br /> )<br /> ;<br /> ; == Function MeGetFoldersRec<br /> ; Recursive function for MeGetFolders.<br /> ; Arguments [Type]:<br /> ;   Fol = Folder [STR]<br /> ;   Rec = Recursive flag [BOOLEAN]<br /> ;         - True:  scan folders recursive<br /> ;         - False: scan first folder level<br /> ; Return [Type]:<br /> ;   > Folder list '((Pth1) (Pth2)) [LIST]<br /> ; Notes:<br /> ;   Return value contain nil atoms.<br /> ;<br /> (defun MeGetFoldersRec (Fol Rec / TmpFol)<br /> (mapcar<br /> '(lambda (l)<br />    (if (not (wcmatch l "`.*"))<br />     (cons<br />      (setq TmpFol (strcat Fol "\" l))<br />      (if Rec (apply 'append (MeGetFoldersRec TmpFol Rec)))<br />     )<br />    )<br />   ) (vl-directory-files Fol nil -1)<br /> )<br /> )<br />

用法
(Megetfolders "c:\\vtcl" "*.*" True)
三个参数
第一个，路径
第二个，后缀名
第三个，是否递归得到子目录内所有文件

刚才测试了一下，大部分没有问题，有时候有些怪，请仔细测试

fengjianwei

高手，下去研究下先
谢谢