如何用lisp函数删除某个文件夹

专用车研发 · 发表于 2020-3-11 21:21:39

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

×

比如删除 "D:\\a\\123" 这个文件夹，怎么在lisp里实现呢？

laiyuming · 发表于 2020-3-12 09:53:54

没明白为啥要CAD里删掉

taoyi0727 · 发表于 2020-3-12 11:00:19

;;说明:删除文件夹
;;返回:t or nil
;;用法:(T-del-folder2 "d:\\桌面\\123")
(defun T-del-folder2 (name)
(command "SHELL" (strcat "RMDIR \"" name "\""))
)

专用车研发 · 发表于 2020-3-13 15:25:53

taoyi0727 发表于 2020-3-12 11:00
;;说明:删除文件夹
;;返回:t or nil
;;用法:(T-del-folder2 "d:\\桌面\\123")

文件夹不为空的话删不掉，有没有办法能将文件夹里的文件一起删除？
还是要写一个函数先删除文件夹内的所有文件，文件夹清空后，再使用(T-del-folder2 "d:\\桌面\\123")删除文件夹？

Lisphk · 发表于 2020-3-13 16:45:51

专用车研发发表于 2020-3-13 15:25
文件夹不为空的话删不掉，有没有办法能将文件夹里的文件一起删除？
还是要写一个函数先删除文件夹内的所 ...

(command "SHELL" (strcat "RMDIR \"" name "\""))

这个是执行DOS命令，你改成del命令，就行了，看下DEL命令的帮助

搜狗截图20200313164533.jpg

Lisphk · 发表于 2020-3-13 17:00:39

本帖最后由 Lisphk 于 2020-3-13 17:08 编辑

专用车研发发表于 2020-3-13 15:25
文件夹不为空的话删不掉，有没有办法能将文件夹里的文件一起删除？
还是要写一个函数先删除文件夹内的所 ...

vl函数可以帮你

vl-directory-files
vl-file-delete
vl-file-directory-p
vl-remove

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

[求助] 如何用lisp函数删除 某个文件夹