求助?在lisp中如何刪除目錄

homeend

请问在lisp中如何删除目录，用什么函数，谢谢

citykunan

;; SORRY!命令名称都一样<FOR TEST ONLY>
;; DelFile
;; BY 龙龙仔
;; Deletes existing files
;; Arguments [Typ]:
;;   Fil = FileName, "C:\\test\\Autoexec.bat" [STR]
;; Notes:
;;   - Requires ScrRun.dll.
;; USAGE: (DelFile "C:\\test\\Autoexec.bat")
(defun DELFILE (FIL /)
  (vlax-invoke (vlax-create-object "scripting.FileSystemObject") "deletefile" FIL :vlax-false )
  (princ)
)

;; 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)
)

;; DelFile
;; BY 龙龙仔
;; 能删除所有档案
;; Deletes existing files
;; Arguments [Typ]:
;;   Fil = FileName, "C:\\test\\Autoexec.bat" [STR]
;; Notes:
;;   - Requires ScrRun.dll.
;; USAGE: (DelFile "C:\\test\\*.*")
;; USAGE: (DelFile "C:\\test\\Autoexec.bat")
(defun DELFILE (FIL / FILSYS FILDIR SS ENT)
  (setq FILSYS (vlax-create-object "scripting.FileSystemObject"))
  (setq FILDIR (vl-filename-directory FIL))
  (setq SS (vl-directory-files FILDIR (strcat (vl-filename-base FIL) (vl-filename-extension FIL)) 0 ) )
  (foreach ENT SS
    (vlax-invoke FILSYS "deletefile" (strcat FILDIR "\\" ENT) :vlax-false )
  )
  (vlax-release-object FILSYS)
  (princ)
)

;; DelFile
;; BY 龙龙仔
;; 对属性为只读的档案不能删除
;; Deletes existing files
;; Arguments [Typ]:
;;   Fil = FileName, "C:\\test\\Autoexec.bat" [STR]
;; Notes:
;;   - Requires ScrRun.dll.
;; USAGE: (DelFile "C:\\test\\*.*")
;; USAGE: (DelFile "C:\\test\\Autoexec.bat")
(defun DELFILE (FIL / FILDIR SS ENT)
  (setq FILDIR (vl-filename-directory FIL))
  (setq SS (vl-directory-files FILDIR (strcat (vl-filename-base FIL) (vl-filename-extension FIL)) 0 ) )
  (foreach ENT SS
    (vl-file-delete (strcat FILDIR "\\" ENT))
  )
  (princ)
)