如何利用lisp把一个文件夹拷贝到另外一个位置？

我爱lisp · 发表于 2014-4-13 21:32:28

vl-file-copy只能拷贝某一个具体文件名，不能实现批量不记名拷贝，相当于dos的copy c:\tem\*.txt d:\tem\

Gu_xl · 发表于 2014-4-13 21:41:14

结合vl-directory-files函数使用

Andyhon · 发表于 2014-4-13 21:44:39

本帖最后由 Andyhon 于 2014-4-13 21:45 编辑

DosLib 內有 Dos_copy 正合用
若不存在 V:\2 的资料夹
Command: (dos_copy "v:/1/*.*" "V:/2/")
nil
创建/存在之后
Command: (dos_copy "v:/1/*.*" "V:/2/")
T

我爱lisp · 发表于 2014-4-13 22:05:16

好主意，谢谢楼上

我爱lisp · 发表于 2014-4-13 22:16:06

Andyho年，你提供这个方法至今网上还是第一次，领教了

lsjj · 发表于 2014-4-13 22:28:31

Sh 後就是一般dos的操作

xyp1964 · 发表于 2014-4-13 23:58:07

lsp中毒太深了

我爱lisp · 发表于 2014-4-14 09:04:06

本帖最后由我爱lisp 于 2014-4-14 09:11 编辑

什么也不说，直接上菜

doslib 库我在网上找了个，适用于cad2008，大于3M，上载不了，有需要的请跟我联系

katamoto · 发表于 2014-12-9 23:05:07

Andyhon 发表于 2014-4-13 21:44
DosLib 內有 Dos_copy 正合用
若不存在 V:\2 的资料夹
Command: (dos_copy "v:/1/*.*" "V:/2/")

能把这个程序写完整点吧？对于这个语句我比较陌生，想学一下
lisp和外部其他的关联程序没写过

账号		自动登录	找回密码
密码			注册

[已解答] 如何利用lisp把一个文件夹拷贝到另外一个位置？

相关帖子

点评

浏览过的版块