congcong 发表于 2003-6-15 10:15:00

我要在lisp程序中很方便地删除一个文件夹中所有文件及此文件夹该如何编程？

meflying 发表于 2003-6-16 13:22:00

(startapp "del" "d:\\abc\\.") (startapp "rd" "d:\\abc")

龙龙仔 发表于 2003-6-16 14:10:00

doclib中有dos_delete & dos_deltree

王咣生 发表于 2003-6-16 14:55:00

用shell命令

命令: (command "shell" "del c:\\11\\*.* /Q")
命令: (command "shell" "rd c:\\11")

龙龙仔 发表于 2003-6-16 16:30:00

对树状目录还是用doslib方便

[此贴子已经被龙龙仔于2003-6-16 16:30:17编辑过]

王咣生 发表于 2003-6-17 10:45:00

doclib很优秀,不过...

就AutoCAD本身而言,(command "shell" "rd c:\11 /s/q")也可以删除目录树,包括其中的隐藏文件和只读文件.

龙龙仔 发表于 2003-6-17 12:29:00

我写个不用COMMAND & DOSLIB的命令的程序供大家参考

本帖最后由 龙龙仔 于 2003-6-17 12:29:20 编辑

;; SORRY!命令名称都一样<FOR TEST ONLY>
;; DelFile
;; BY 龙龙仔
;; Deletes existing files
;; Arguments :
;;   Fil = FileName, "C:\\test\\Autoexec.bat"
;; 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 :
;;   Fil = FolderName, "C:\\test"
;; 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 :
;;   Fil = FileName, "C:\\test\\Autoexec.bat"
;; 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))
       1
       )
)
(foreach ENT SS
    (vlax-invoke
      FILSYS
      "deletefile"
      (strcat FILDIR "\\" ENT)
      :vlax-false
    )
)
(vlax-release-object FILSYS)
(princ)
)

;; DelFile
;; BY 龙龙仔
;; 对属性为只读的档案不能删除
;; Deletes existing files
;; Arguments :
;;   Fil = FileName, "C:\\test\\Autoexec.bat"
;; 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))
       1
       )
)
(foreach ENT SS
    (vl-file-delete (strcat FILDIR "\\" ENT))
)
(princ)
)

王咣生 发表于 2003-6-17 14:19:00

我认为你也同样出色.

我认为你也同样出色.希望以后能见到各位斑竹写的比Doslib功能更强的开发工具.

wujin 发表于 2003-7-29 11:19:00

有个问题，　我如果想自动删除文件呢。比如我运行了一个程序，生成了一个文件如
c:\test\11.txt
这个11.txt是我在程序启动后提示用户输入的，如果我的程序出错了，我想在出错函数里面自动删除这个文件11.txt该如何做呢。请指教！

meflying 发表于 2003-7-29 11:53:00

那你就在*error*函数里调用以上各位提供的函数啊
页: [1] 2
查看完整版本: 我要在lisp程序中很方便地删除一个文件夹中所有文件及此文件夹该如何编程？