请教一个lisp使用FSO复制文件的问题

ryljun

D盘已经有个文件夹“d:\abc”,里面已有多个文件，现在想复制到“c:\123”文件夹下。代码如下 ：

2. (defun c:ccdd (/ FSO)
   
3. ;;;  复制文件,参考资料https://codeantenna.com/a/vfVkZPl6WT
   
4.   (vl-load-com)
   
5.   (setq FSO (vlax-create-object "scripting.FileSystemObject"))
   
6. ;;;  (vlax-dump-object FSO t)
   
7.   (setq  sourcePath  "d:\\abc"
   
8.   destinationPath  "c:\\123"
   
9.   )
   
10. ;;;  (princ (vlax-invoke-method FSO 'FolderExists destinationPath))
    
11.   (if (= :vlax-false (vlax-invoke-method FSO 'FolderExists destinationPath))
    
12.     (vlax-invoke-method FSO 'CreateFolder destinationPath)
    
13.     (progn
    
14. ;;;      (alert "文件夹已存在。")
    
15.     )
    
16.   )
    
17.   (setq sourcePath (vlax-invoke FSO 'BuildPath sourcePath "\\*.*"))
    
18. ;;;  (alert sourcePath)
    
19.   (princ (vlax-invoke-method
    
20.     FSO  'CopyFile sourcePath destinationPath T))
    
21.   (vlax-release-object FSO)    ;释放对象（结束进程）
    
22. )

(defun c:ccdd (/ FSO)<br /> ;;;  复制文件,参考资料https://codeantenna.com/a/vfVkZPl6WT<br />   (vl-load-com)<br />   (setq FSO (vlax-create-object "scripting.FileSystemObject"))<br /> ;;;  (vlax-dump-object FSO t)<br />   (setq  sourcePath  "d:\\abc"<br />   destinationPath  "c:\\123"<br />   )<br /> ;;;  (princ (vlax-invoke-method FSO 'FolderExists destinationPath))<br />   (if (= :vlax-false (vlax-invoke-method FSO 'FolderExists destinationPath))<br />     (vlax-invoke-method FSO 'CreateFolder destinationPath)<br />     (progn<br /> ;;;      (alert "文件夹已存在。")<br />     )<br />   )<br />   (setq sourcePath (vlax-invoke FSO 'BuildPath sourcePath "\\*.*"))<br /> ;;;  (alert sourcePath)<br />   (princ (vlax-invoke-method<br />     FSO  'CopyFile sourcePath destinationPath T))<br />   (vlax-release-object FSO)    ;释放对象（结束进程）<br /> )

现在的问题是只运行成功一次，再次运行就出错。也就是不能实现覆盖。除非删除c:\123文件夹。求大神解答谢谢。

llsheng_73

(vlax-invoke-method FSO  'CopyFile sourcePath destinationPath T)
修改为(vlax-invoke-method FSO  'CopyFile sourcePath destinationPath :vlax-true)

gaics

单个文件可以用vl-file-copy，多个没试过

ryljun

llsheng_73 发表于 2023-6-3 10:18
(vlax-invoke-method FSO  'CopyFile sourcePath destinationPath T)
修改为(vlax-invoke-method FSO  'Co ...

把t改为:vlax-true成功了，但是CAD假死一分钟左右。可能电脑太旧了。

vormittag

操作系统的工作最好交给操作系统，何必自己造轮子呢。

ryljun

改为:vlax-true还是不行，在笔记本上以为可以了，今天来上班办公室的电脑还是提示
; 错误: Automation 错误。未提供说明。

ryljun

vormittag 发表于 2023-6-5 09:12
操作系统的工作最好交给操作系统，何必自己造轮子呢。

我这里 是多台电脑，想做插件自动更新的功能，以前是运行vbs复制，现在不行了，管理员权限也不行，还经常被360杀进程，所以才想这办法。