Lisphk · 发表于 2017-1-23 18:07:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

本帖最后由 Lisphk 于 2017-1-23 18:29 编辑

(defun find_dir (str / key dir)
  (setq key (vl-filename-base str)
        dir (vl-string-subst "" key str)
  )
  (mapcar
    '(lambda (a)
       (strcat dir a)
     )
    (vl-directory-files dir (strcat key "*.*") -1)
  )
)

命令: (find_dir "c:\\program files\\autodesk\\")
("c:\\program files\\autodesk\\." "c:\\program files\\autodesk\\.."
"c:\\program files\\autodesk\\AutoCAD 2016" "c:\\program
files\\autodesk\\AutoCAD 2017" "c:\\program files\\autodesk\\AutoCAD LT 2014"
"c:\\program files\\autodesk\\AutoCAD LT 2015" "c:\\program
files\\autodesk\\AutoCAD LT 2016" "c:\\program files\\autodesk\\AutoCAD LT
2017" "c:\\program files\\autodesk\\Autodesk ReCap" "c:\\program
files\\autodesk\\Autodesk ReCap 2016" "c:\\program files\\autodesk\\Autodesk
ReCap 360" "c:\\program files\\autodesk\\Autodesk Sync" "c:\\program
files\\autodesk\\Chronicle" "c:\\program files\\autodesk\\InfraWorks 360")

cable2004 · 发表于 2017-1-23 20:39:12

啥也不说了，感谢楼主分享哇！

cq_qg68 · 发表于 2017-1-24 10:05:05

感谢分享！感谢分享！

qqqincccken · 发表于 2017-1-24 17:17:13

谢谢提供,学习了,试用一下

kqqt6236 · 发表于 2017-1-25 20:23:22

谢谢分享。

xvjiex · 发表于 2021-12-8 06:21:51

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

[每日一码] 获得给定目录下的子目录

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。