自贡黄明儒 发表于 2022-8-10 11:15:51

删除文件办法（四）

本帖最后由 自贡黄明儒 于 2022-8-12 15:22 编辑

;;[方法一]
;;vectornew.fas只读文件，或者不存在时
(vl-file-delete "D:\\0000\\vectornew.fas");;===>nil
;;vectornew.fas不是只读文件，且存在时(不进入回收站)
(vl-file-delete "D:\\0000\\vectornew.fas");;==>>T

(defun DeleteFile (FIL / FILSYS FILDIR SS ENT)
(setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
(setq FILDIR (vl-filename-directory FIL))
(setq
    SS (vl-directory-files
         FILDIR
         (strcat (vl-filename-base FIL) (vl-filename-extension FIL))
         1
       )
)
(foreach ENT SS
    (vlax-invoke
      FILSYS
      "deletefile"
      (strcat FILDIR "\\" ENT)
      :vlax-false
    )
)
(vlax-release-object FILSYS)
(princ)
)

;;[方法二]
;;QDD.fas不论是否只读、存在，均删除(不进入回收站)
(DeleteFile "D:\\0000\\QDD.fas")

;;[方法三]
;;蔬菜大棚.dwg不论是否只读、存在，均删除(不进入回收站)

**** Hidden Message *****

baitang36 发表于 2022-8-10 15:46:45

DeleteFile的功能是删除文件。以文件路径作为输入，指向需要删除的文件。文件路径可以是类似于“c：\files\delete.txt”的绝对路径，也可以是类似于“.\delete.txt”的相对路径，二相对于可执行文件所在的路径。
◇参数
lpFileName:输入参数，所要删除的文件的相对路径或绝对路径。
◇返回值
返回BOOL值，表示文件删除是否成功。
◇使用说明
如果程序返回失败，可以使用GetLastError函数获取错误信息。

偶尔郁闷 发表于 2022-8-10 11:28:50

看看                     

xj6019 发表于 2022-8-10 11:38:52

好办法

muwind 发表于 2022-8-10 11:43:58

大师出品，必属精品

ptime 发表于 2022-8-10 12:31:23

多谢分享！！！

guosheyang 发表于 2022-8-10 12:35:05

看看黄大师的代码！

zm880928 发表于 2022-8-10 12:36:16

yoyoho 发表于 2022-8-10 12:41:27

回覆学习了!

tigcat 发表于 2022-8-10 12:47:54

黄老又发布实用函数了，赞。

wblx 发表于 2022-8-10 13:01:07

看看    0.0.
页: [1] 2 3 4 5 6 7
查看完整版本: 删除文件办法（四）