删除文件，代替vl-file-delete

尘缘一生 · 发表于 2022-11-7 09:20

本帖最后由尘缘一生于 2022-11-8 17:38 编辑

;删除文件（只读与否均删除）--------(一级)------
;(sl:del-fil "D:\\简历.docx")
(defun sl:del-fil (file / fso oFile att ent ss)
(vl-catch-all-apply
(function
(lambda ()
(if (= (vl-file-delete file) nil)
(progn
(setq fso (vlax-create-object "Scripting.FilesystemObject"))
(setq oFile (vlax-invoke fso 'GetFile File));易报错(发生意外)，原因尚不清楚
(setq att (logand 1 (vlax-get-property oFile 'Attributes)))
(if (/= att 0) (vlax-put-property oFile 'Attributes 0))
(setq fildir (vl-filename-directory file))
(setq ss (vl-directory-files fildir (strcat (vl-filename-base file) (vl-filename-extension file)) 0))
(foreach ent ss
(vlax-invoke fso "deletefile" (strcat fildir "\\" ent) :vlax-false)
)
(vlax-release-object oFile)
(vlax-release-object fso)
)
)
)
)
)

mokson · 发表于 2022-11-8 08:56

使用的是文件系统对象。

paulpipi · 发表于 2022-11-8 09:07

收藏备用，感谢分享！

ht1480 · 发表于 2022-11-8 09:52

sunny_8848 · 发表于 2022-11-8 12:38

加载后提示输入的列表有缺陷

尘缘一生 · 发表于 2022-11-8 17:37

sunny_8848 发表于 2022-11-8 12:38
加载后提示输入的列表有缺陷

不会吧。。。。。。。。。。。。。。。。。。。

sunny_8848 · 发表于 2022-11-8 20:09

谢谢帮忙上传

sunny_8848 · 发表于 2022-11-9 07:55

本帖最后由 sunny_8848 于 2022-11-9 07:59 编辑

加载后出现错误: no function definition: SL:del-FIL，不好意思我删除了一个；

sjl_fyl · 发表于 2024-1-4 15:34

谢谢分享

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