删除文件办法（四）

自贡黄明儒

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. 
   
7. (defun DeleteFile (FIL / FILSYS FILDIR SS ENT)
   
8.   (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))
   
9.   (setq FILDIR (vl-filename-directory FIL))
   
10.   (setq
    
11.     SS (vl-directory-files
    
12.          FILDIR
    
13.          (strcat (vl-filename-base FIL) (vl-filename-extension FIL))
    
14.          1
    
15.        )
    
16.   )
    
17.   (foreach ENT SS
    
18.     (vlax-invoke
    
19.       FILSYS
    
20.       "deletefile"
    
21.       (strcat FILDIR "\\" ENT)
    
22.       :vlax-false
    
23.     )
    
24.   )
    
25.   (vlax-release-object FILSYS)
    
26.   (princ)
    
27. )
    
28. 
    
29. ;;[方法二]
    
30. ;;QDD.fas不论是否只读、存在，均删除(不进入回收站)
    
31. (DeleteFile "D:\\0000\\QDD.fas")
    
32. 
    
33. ;;[方法三]
    
34. ;;蔬菜大棚.dwg不论是否只读、存在，均删除(不进入回收站)
    

;;[方法一]<br /> ;;vectornew.fas只读文件，或者不存在时<br /> (vl-file-delete "D:\\0000\\vectornew.fas");;===>nil<br /> ;;vectornew.fas不是只读文件，且存在时(不进入回收站)<br /> (vl-file-delete "D:\\0000\\vectornew.fas");;==>>T<br /> <br /> (defun DeleteFile (FIL / FILSYS FILDIR SS ENT)<br />   (setq FILSYS (vlax-create-object "Scripting.FileSystemObject"))<br />   (setq FILDIR (vl-filename-directory FIL))<br />   (setq<br />     SS (vl-directory-files<br />          FILDIR<br />          (strcat (vl-filename-base FIL) (vl-filename-extension FIL))<br />          1<br />        )<br />   )<br />   (foreach ENT SS<br />     (vlax-invoke<br />       FILSYS<br />       "deletefile"<br />       (strcat FILDIR "\\" ENT)<br />       :vlax-false<br />     )<br />   )<br />   (vlax-release-object FILSYS)<br />   (princ)<br /> )<br /> <br /> ;;[方法二]<br /> ;;QDD.fas不论是否只读、存在，均删除(不进入回收站)<br /> (DeleteFile "D:\\0000\\QDD.fas")<br /> <br /> ;;[方法三]<br /> ;;蔬菜大棚.dwg不论是否只读、存在，均删除(不进入回收站)<br />

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

baitang36

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

偶尔郁闷

看看                     

xj6019

好办法

muwind

大师出品，必属精品

ptime

多谢分享！！！

guosheyang

看看黄大师的代码！

zm880928

yoyoho

回覆学习了!

tigcat

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

wblx

看看    0.0.