求助,如何删除文件到回收站?
;;;删目录(defun del_folder ( path / fso )
(setq path (vl-string-right-trim "\\" path))
(setq fso (vlax-create-object "Scripting.FileSystemObject"))
(vlax-invoke FSO'DeleteFolder path :VLAX-TRUE)
(vlax-release-object fso)
)
这种方法直接删除了,并不放到回收站。
刚好我要这种,谢谢 目录内有文件还在使用是不是就会删除失败 所谓删除到回收站,就是移动到回收站。你用 fso 的移动目录试试。
回收站的目录是:C:\\$RECYCLE.BIN\S-1-5-21-1558060861-2044350480-790342636-500 shell - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz! (mjtd.com)
页:
[1]