liminnet 发表于 2009-11-23 17:36:00

xianaihua 发表于 2009-11-23 18:50:00

用下面的程序试试
(defun Del_Directory (Dir / FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
   ((= (vlax-invoke FilSys "FolderExists" Dir) 0) nil)
   (T (vlax-invoke FilSys "DeleteFolder" Dir :vlax-true) T)
      )
)
(vlax-release-object FilSys)
RetVal
)
(Del_Directory "e:\\新建文件夹")

龙龙仔 发表于 2009-11-24 07:56:00

;; DelFolder<br/>;; BY 龍龍仔<br/>;; Deletes a directory and all of its subdirectories.<br/>;; Arguments :<br/>;;&nbsp;&nbsp; Fil = FolderName, "C:\\test" <br/>;; Notes:<br/>;;&nbsp;&nbsp; - Requires ScrRun.dll.<br/>;; USAGE: (DelFolder "C:\\test")<br/>(defun DELFOLDER (FIL /)<br/>&nbsp; (vlax-invoke<br/>&nbsp;&nbsp;&nbsp; (vlax-create-object "Scripting.FileSystemObject")<br/>&nbsp;&nbsp;&nbsp; "deletefolder"<br/>&nbsp;&nbsp;&nbsp; FIL<br/>&nbsp;&nbsp;&nbsp; :vlax-false<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)

zj20190405 发表于 2025-4-21 11:09:27

龙龙仔 发表于 2009-11-24 07:56
;; DelFolder;; BY 龍龍仔;; Deletes a directory and all of its subdirectories.;; Arguments :;;&n ...

谢谢大哥，很好用

自贡黄明儒 发表于 2025-4-21 11:30:59

zj20190405 发表于 2025-4-21 11:09
谢谢大哥，很好用

我总结了一下            http://bbs.mjtd.com/thread-186014-1-1.html

zj20190405 发表于 2025-4-21 16:11:26

自贡黄明儒 发表于 2025-4-21 11:30
我总结了一下            http://bbs.mjtd.com/thread-186014-1-1.html

谢谢大哥:lol
页: [1]
查看完整版本: 为什么用'DeleteFolder删不了文件夹