获取文件名列表

robierzo · 发表于 2022-7-5 17:06:38

我需要在文件夹中获得一个带有特定扩展名的文件名的列表。
例子：
文件夹：c:\temp\drawings
扩展名：txt

结果：

(name1 name2 name3 ..... n)

非常感谢。

Tharwat · 发表于 2022-7-5 17:22:14

确保有两个反斜杠或一个正斜杠，如下所示；

copy

(vl-directory-files "c:\\temp\\drawings" "*.txt" 1)

David Bethel · 发表于 2022-7-5 17:30:38

在谷歌上搜索DosLib

https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwix2KC6ud3PAhXJVT4KHXx1ClwQFggcMAA&url=http%3A%2F%2Fwww.en.na.mcneel.com%2Fdoslib.htm&usg=AFQjCNEiiCL_-fUuMGCIY2LFD0ZadTttKw&sig2=nPsrEKbp23jCFI3XKNW81A&bvm=bv。135974163，d.cWw

它比vl强大得多？？？？？

robierzo · 发表于 2022-7-5 17:38:54

非常感谢你。
使用Tharwat的表达式。太完美了。

谢谢你，大卫。

marko_ribar · 发表于 2022-7-5 17:54:17

对于无限深度的子文件夹。。。

copy


[b][color=#FF0000]([/color][/b][color=BLUE]defun[/color] _findfiles [b][color=#80FF00]([/color][/b] libraryrootprefix filenamepattern [color=BLUE]/[/color] subs subfolderss subfs folders fl [b][color=#80FF00])[/color][/b] ;;; [b][color=#80FF00]([/color][/b]_findfiles "F:\\ACAD ADDONS-NEW\" "profile*.lsp"[b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b][color=BLUE]defun[/color] subs [b][color=#00FFFF]([/color][/b] folder [b][color=#00FFFF])[/color][/b]
   [b][color=#00FFFF]([/color][/b][color=BLUE]setq[/color] subfolders [b][color=#0080FF]([/color][/b][color=BLUE]vl-remove[/color] [color=BROWN]"."[/color] [b][color=#FF00FF]([/color][/b][color=BLUE]vl-remove[/color] [color=BROWN]".."[/color] [b][color=#FF0000]([/color][/b][color=BLUE]vl-directory-files[/color] folder [color=BLUE]nil[/color] -1[b][color=#FF0000])[/color][/b][b][color=#FF00FF])[/color][/b][b][color=#0080FF])[/color][/b][b][color=#00FFFF])[/color][/b]
   subfolders
 [b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b][color=BLUE]defun[/color] subfolderss [b][color=#00FFFF]([/color][/b] rootfolder [color=BLUE]/[/color] subfolders [b][color=#00FFFF])[/color][/b]
   [b][color=#00FFFF]([/color][/b]subs rootfolder[b][color=#00FFFF])[/color][/b]
   [b][color=#00FFFF]([/color][/b][color=BLUE]if[/color] subfolders
     [b][color=#0080FF]([/color][/b][color=BLUE]foreach[/color] sub subfolders
       [b][color=#FF00FF]([/color][/b]subfolderss [b][color=#FF0000]([/color][/b][color=BLUE]strcat[/color] rootfolder [color=BROWN]"\"[/color] sub[b][color=#FF0000])[/color][/b][b][color=#FF00FF])[/color][/b]
       [b][color=#FF00FF]([/color][/b][color=BLUE]setq[/color] subfs [b][color=#FF0000]([/color][/b][color=BLUE]cons[/color] [b][color=#80FF00]([/color][/b][color=BLUE]strcat[/color] rootfolder [color=BROWN]"\"[/color] sub[b][color=#80FF00])[/color][/b] subfs[b][color=#FF0000])[/color][/b][b][color=#FF00FF])[/color][/b]
     [b][color=#0080FF])[/color][/b]
   [b][color=#00FFFF])[/color][/b]
 [b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b][color=BLUE]setq[/color] libraryrootprefix [b][color=#00FFFF]([/color][/b][color=BLUE]vl-string-right-trim[/color] [color=BROWN]"\"[/color] libraryrootprefix[b][color=#00FFFF])[/color][/b][b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b]subfolderss libraryrootprefix[b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b][color=BLUE]setq[/color] folders [b][color=#00FFFF]([/color][/b][color=BLUE]append[/color] [b][color=#0080FF]([/color][/b][color=BLUE]list[/color] libraryrootprefix[b][color=#0080FF])[/color][/b] subfs[b][color=#00FFFF])[/color][/b][b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b][color=BLUE]foreach[/color] folder folders
   [b][color=#00FFFF]([/color][/b][color=BLUE]foreach[/color] x [b][color=#0080FF]([/color][/b][color=BLUE]vl-directory-files[/color] [b][color=#FF00FF]([/color][/b][color=BLUE]strcat[/color] folder [color=BROWN]"\"[/color][b][color=#FF00FF])[/color][/b] filenamepattern 1[b][color=#0080FF])[/color][/b]
     [b][color=#0080FF]([/color][/b][color=BLUE]setq[/color] fl [b][color=#FF00FF]([/color][/b][color=BLUE]cons[/color] [b][color=#FF0000]([/color][/b][color=BLUE]strcat[/color] folder [color=BROWN]"\"[/color] x[b][color=#FF0000])[/color][/b] fl[b][color=#FF00FF])[/color][/b][b][color=#0080FF])[/color][/b]
   [b][color=#00FFFF])[/color][/b]
 [b][color=#80FF00])[/color][/b]
 [b][color=#80FF00]([/color][/b][color=BLUE]reverse[/color] fl[b][color=#80FF00])[/color][/b]
[b][color=#FF0000])[/color][/b]