文档在不同的文件夹里进行复制转移

429014673

---求高手写一程序
有两个文件夹A  B  ,其中A文件里有一文档C.TXT，如何用程序把这个C.TXT复制到B文件夹里

yaokui25

用bat
很容易解决的
上百度搜一下

革天明

vl-file-copy 函数

429014673

革天明 发表于 2013-12-12 19:56
vl-file-copy 函数

将一个文件的内容复制或附加到另一个文件

(vl-file-copy  source-file destination-file [append])
将一个文件的内容复制或附加到另一个文件。vl-file-copy 函数不会覆盖现有文件，而是将内容附加其后。

---这个不行吧

gdslqs

1. (defun c:tt( / file path wssh)
   
2. (setq file "D:\\A\\c.txt")
   
3. (setq path "D:\\B")
   
4. (vl-load-com)
   
5.   (if (setq wssh (vlax-get-or-create-object "WScript.Shell"))
   
6.       (progn
   
7.          (vlax-invoke-method wssh 'Run (strcat "cmd.exe /c md " path) 0 :vlax-true)
   
8.            (vlax-invoke-method wssh 'Run (strcat "cmd.exe /c copy " File " " path) 0 :vlax-true)
   
9.          (vlax-release-object wssh)
   
10.       );_progn
    
11.       (alert "")
    
12.   );_if
    
13. )

(defun c:tt( / file path wssh)<br /> (setq file "D:\\A\\c.txt")<br /> (setq path "D:\\B")<br /> (vl-load-com)<br />   (if (setq wssh (vlax-get-or-create-object "WScript.Shell"))<br />       (progn<br />          (vlax-invoke-method wssh 'Run (strcat "cmd.exe /c md " path) 0 :vlax-true)<br />            (vlax-invoke-method wssh 'Run (strcat "cmd.exe /c copy " File " " path) 0 :vlax-true)<br />          (vlax-release-object wssh)<br />       );_progn<br />       (alert "")<br />   );_if<br /> )

fire9527

gdslqs 发表于 2013-12-13 10:05

同时复制多个文件怎么办呢？
比如a，b文件复制到1文件夹；
同时c，d文件复制到2文件夹