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

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

vl-file-copy只能拷贝某一个具体文件名，不能实现批量不记名拷贝，相当于dos的copy c:\tem\*.txtd:\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 static/image/common/back.gif
DosLib 內有Dos_copy 正合用
若不存在 V:\2 的资料夹
Command: (dos_copy "v:/1/*.*" "V:/2/")


能把这个程序写完整点吧？对于这个语句我比较陌生，想学一下
lisp和外部其他的关联程序没写过
页: [1]
查看完整版本: 如何利用lisp把一个文件夹拷贝到另外一个位置？