为什么用'DeleteFolder删不了文件夹

xianaihua

用下面的程序试试

2. (defun Del_Directory (Dir / FilSys RetVal)
3.   (setq FilSys (vlax-create-object "Scripting.FileSystemObject")
4. RetVal (cond
5.    ((= (vlax-invoke FilSys "FolderExists" Dir) 0) nil)
6.    (T (vlax-invoke FilSys "DeleteFolder" Dir :vlax-true) T)
7.         )
8.   )
9.   (vlax-release-object FilSys)
10.   RetVal
11. )
12. (Del_Directory "e:\\新建文件夹")

(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:\\新建文件夹")

龙龙仔

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

zj20190405

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

谢谢大哥，很好用

自贡黄明儒

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

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

zj20190405

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

谢谢大哥