明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3298|回复: 66

[讨论] 删除文件办法(四)

    [复制链接]
发表于 2022-8-10 11:15 | 显示全部楼层 |阅读模式
本帖最后由 自贡黄明儒 于 2022-8-12 15:22 编辑

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

  6. (defun DeleteFile (FIL / FILSYS FILDIR SS ENT)
  7.   (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
  8.   (setq FILDIR (vl-filename-directory FIL))
  9.   (setq
  10.     SS (vl-directory-files
  11.          FILDIR
  12.          (strcat (vl-filename-base FIL) (vl-filename-extension FIL))
  13.          1
  14.        )
  15.   )
  16.   (foreach ENT SS
  17.     (vlax-invoke
  18.       FILSYS
  19.       "deletefile"
  20.       (strcat FILDIR "\\" ENT)
  21.       :vlax-false
  22.     )
  23.   )
  24.   (vlax-release-object FILSYS)
  25.   (princ)
  26. )

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

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

(startapp "cmd.exe /C del/f D:\\0000\\蔬菜大棚.dwg")
;;【方法四】
将文件删除到回收站

评分

参与人数 2明经币 +2 收起 理由
baitang36 + 1 很巧妙,simple is best
muwind + 1 神马都是浮云

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2022-8-10 15:46 | 显示全部楼层
DeleteFile的功能是删除文件。以文件路径作为输入,指向需要删除的文件。文件路径可以是类似于“c:\files\delete.txt”的绝对路径,也可以是类似于“.\delete.txt”的相对路径,二相对于可执行文件所在的路径。
◇参数
lpFileName:输入参数,所要删除的文件的相对路径或绝对路径。
◇返回值
返回BOOL值,表示文件删除是否成功。
◇使用说明
如果程序返回失败,可以使用GetLastError函数获取错误信息。
回复 支持 1 反对 0

使用道具 举报

发表于 2022-8-10 11:28 | 显示全部楼层
看看                     
发表于 2022-8-10 11:43 | 显示全部楼层
大师出品,必属精品
发表于 2022-8-10 12:35 | 显示全部楼层
看看黄大师的代码!
发表于 2022-8-10 12:41 | 显示全部楼层
回覆学习了!
发表于 2022-8-10 12:47 | 显示全部楼层
黄老又发布实用函数了,赞。
发表于 2022-8-10 13:01 | 显示全部楼层
看看    0.0.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 14:47 , Processed in 0.245180 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表