[LISP程序]：请问晓东：如何在lisp中实现文件的删除(delete)和改名称(rename)?

wwqq

请问晓东：如何在lisp中实现文件的删除(delete)和改名称(rename)?
          我在lisp中调用VC的函数，可以实现。但在纯lisp中不行。
           能否帮忙？谢谢！

XDSoft

最初由 wwqq 发布
[B]请问晓东：如何在lisp中实现文件的删除(delete)和改名称(rename)?
          我在lisp中调用VC的函数，可以实现。但在纯lisp中不行。
           能否帮忙？谢谢！ [/B]

纯LISP没有，你可以使用VLISP。

LUCAS

使用 VISUAL LISP 吧!!!!
删除档案
(vl-file-delete  filename)

自变量

filename

含有要删除的文件名称的字符串。如果您不指定完整的路径名称，vl-file-delete会在 AutoCAD 启动目录中寻找。

传回值

如果成功的话是 T，如果删除失败是 nil。

范例

删除 newauto.bat:

_$ (vl-file-delete "newauto.bat")

nil

没有删除，因为在 AutoCAD 启动目录中没有 newauto.bat 档案。
删除 newauto.bat 档案 (c:\ 目录中)：

_$ (vl-file-delete "c:/newauto.bat")

T

删除成功，因为完整路径名称识别既有的档案。

将档案更名
(vl-file-rename  old-filename new-filename)

自变量

old-filename

含有您要更名的文件名称的字符串。如果您不指定完整的路径名称，vl-file-rename会在 AutoCAD 启动目录中寻找。

new-filename

含有要指定给档案新名称的字符串。
请注意 如果您不指定路径名称，vl-file-rename 会将更名档案写入 AutoCAD 启动目录。

传回值

T 表示更名完全成功，nil 表示更名失败。

范例

_$ (vl-file-rename "c:/newauto.bat" "c:/myauto.bat")

T

wwqq

我在R14中用，vlisp 可能不好用吧。
谢谢各位！

XDSoft

最初由 wwqq 发布
[B]我在R14中用，vlisp 可能不好用吧。
谢谢各位！ [/B]

使用XDRX_API，关于文件处理的几个函数：

1. [font=courier new]
   
2. 53. xdrx_system_filedel
   
3. 
   
4. 功能：文件删除。
   
5. 
   
6. 调用格式：(xdrx_system_filedel <文件名>)
   
7. 
   
8. 返回值：成功返回T,失败返回NIL。
   
9. 
   
10. 54. xdrx_system_filecopy
    
11. 
    
12. 功能：文件拷贝。
    
13. 
    
14. 调用格式：(xdrx_system_filecopy <源文件名> <目的文件名>)
    
15. 
    
16. 返回值：成功返回T,失败返回NIL。
    
17. 
    
18. 55. xdrx_system_filemove
    
19. 
    
20. 功能：文件移动。
    
21. 
    
22. 调用格式：(xdrx_system_filemove <源文件名> <目的文件名>)
    
23. 
    
24. 返回值：成功返回T,失败返回NIL。
    
25. 
    
26. 56.xdrx_system_getcd,xdrx_system_getcdir
    
27. 
    
28. 功能：返回当前目录。
    
29. 
    
30. 57. xdrx_system_makedir , xdrx_system_mkdir
    
31. 
    
32. 功能：建立目录。
    
33. 
    
34. 调用格式：(xdrx_system_makedir <目录名>)
    
35. 
    
36. 
    
37. 说明：若带路径，则生成指定路径下的目录。
    
38.       不带路径，在当前目录下建立目录。
    
39. 
    
40. 58. xdrx_system_changedir , xdrx_system_chdir
    
41. 
    
42. 功能：改变工作目录。
    
43. 
    
44. 调用格式：(xdrx_system_chdir <路径目录名>)
    
45. 
    
46. 59. xdrx_system_rmdir, xdrx_system_removedir
    
47. 
    
48. 功能：删除非空目录。
    
49. 
    
50. 调用格式：(xdrx_system_chdir <路径目录名>)
    
51. [/font]

复制代码

杨少

不想装 XDRX_API 就用 Doslib 吧,
dos_delete
dos_rename

lhj555

用  (command "shell" "del  文件名")  不可以吗？