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

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

本帖最后由 尘缘一生 于 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:38

使用的是文件系统对象。

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

收藏备用，感谢分享！

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

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

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

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

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

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


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

谢谢帮忙上传

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

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

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

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

{:1_1:}谢谢分享

逍遥无声 发表于 2024-8-30 06:24:23

页: [1] 2
查看完整版本: 删除文件，代替vl-file-delete