为什么用'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)
)