文件夹拷贝

lywzcf

各位好，想找一个文件夹拷贝的程序，能拷贝指定目录内多级文件夹及文件的程序

搜索了各种关键词，“文件夹”  “拷贝”，，翻了很多页，没找着

不知此前是否有过这样的帖子，或者，各位手头有这样的程序，不知可否分享一下

newer

晓东通用LISP函数库里面的xd::system:xcopy
(xd::system:xcopy  <原文件夹> <文件类型> <目标文件夹> <xcopy 开关参数>)
默认带的参数有： "/c/i/k/r/y/q"

例子：

1. (xd::system:xcopy "c:\\abc" "*.*" "d:\\def" "/s")
   
2. (xd::system:xcopy "c:\\abc" "*.exe" "d:\\def" "/s")
   

(xd::system:xcopy "c:\\abc" "*.*" "d:\\def" "/s")<br /> (xd::system:xcopy "c:\\abc" "*.exe" "d:\\def" "/s")<br />

目标文件夹不存在会自动创建， /s 参数，是xcopy.exe命令的 带子目录拷贝开关

开关参数：

1. 
   
2. 复制文件和目录树。
   
3. 
   
4. XCOPY source [destination] [/A | /M] [/D[:date]] [/P] [/S [/E]] [/V] [/W]
   
5.                            [/C] [/I] [/Q] [/F] [/L] [/G] [/H] [/R] [/T] [/U]
   
6.                            [/K] [/N] [/O] [/X] [/Y] [/-Y] [/Z] [/B] [/J]
   
7.                            [/EXCLUDE:file1[+file2][+file3]...]
   
8. 
   
9.   source       指定要复制的文件。
   
10.   destination  指定新文件的位置和/或名称。
    
11.   /A           仅复制有存档属性集的文件，
    
12.                但不更改属性。
    
13.   /M           仅复制有存档属性集的文件，
    
14.                并关闭存档属性。
    
15.   /D:m-d-y     复制在指定日期或指定日期以后更改的文件。
    
16.                如果没有提供日期，只复制那些
    
17.                源时间比目标时间新的文件。
    
18.   /EXCLUDE:file1[+file2][+file3]...
    
19.                指定含有字符串的文件列表。每个字符串
    
20.                在文件中应位于单独的一行。如果任何
    
21.                字符串与复制文件的绝对路径的任何部分相符，
    
22.                则排除复制该文件。例如，
    
23.                指定如 \obj\ 或 .obj 的字符串会分别
    
24.                排除目录 obj 下面的所有文件或带有
    
25.                .obj 扩展名的所有文件。
    
26.   /P           创建每个目标文件之前提示你。
    
27.   /S           复制目录和子目录，不包括空目录。
    
28.   /E           复制目录和子目录，包括空目录。
    
29.                与 /S /E 相同。可以用来修改 /T。
    
30.   /V           验证每个新文件的大小。
    
31.   /W           提示你在复制前按键。
    
32.   /C           即使有错误，也继续复制。
    
33.   /I           如果目标不存在，且要复制多个文件，
    
34.                则假定目标必须是目录。
    
35.   /Q           复制时不显示文件名。
    
36.   /F           复制时显示完整的源文件名和目标文件名。
    
37.   /L           显示要复制的文件。
    
38.   /G           允许将加密文件复制到
    
39.                不支持加密的目标。
    
40.   /H           也复制隐藏文件和系统文件。
    
41.   /R           覆盖只读文件。
    
42.   /T           创建目录结构，但不复制文件。不
    
43.                包括空目录或子目录。/T /E 包括
    
44.                空目录和子目录。
    
45.   /U           只复制已经存在于目标中的文件。
    
46.   /K           复制属性。一般的 Xcopy 会重置只读属性。
    
47.   /N           用生成的短名称复制。
    
48.   /O           复制文件所有权和 ACL 信息。
    
49.   /X           复制文件审核设置(隐含 /O)。
    
50.   /Y           取消提示以确认要覆盖
    
51.                现有目标文件。
    
52.   /-Y          要提示以确认要覆盖
    
53.                现有目标文件。
    
54.   /Z           在可重新启动模式下复制网络文件。
    
55.   /B           复制符号链接本身与链接目标。
    
56.   /J           复制时不使用缓冲的 I/O。推荐复制大文件时使用。
    
57. 
    
58. 开关 /Y 可以预先在 COPYCMD 环境变量中设置。
    
59. 这可能被命令行上的 /-Y 覆盖。
    
60. 
    

复制代码

lywzcf

newer 发表于 2017-6-8 20:15

谢谢版主，，，

那个(xd::system:xcopy "c:\\abc" "*.*" "d:\\def" "/s")不知怎用

我这有个类似的，可以劳你帮忙注解一下么，那些高级函数实在看不懂

;;文件夹文件比较并拷贝不同的
(defun C:tt (/ file1 file2 mb bbp finfile i)
  (princ "\n读取源文件夹:")
  (princ)
  (setq file1 (qf_getFolder "读取源文件夹:"))
  (princ "\n目标文件夹:")
  (princ)
  (setq file2 (qf_getFolder "目标文件夹:"))
  (setq bbp (cddr (vl-directory-files file1)))
  (setq i 0
a 0
  )
  (repeat (length bbp)
    (setq mb (nth i bbp))
    (if (not (vl-file-directory-p (strcat file1 "\\" mb))) ；；这个vl-file-directory-p是什么动作？
      (progn
(setq finfile (findfile (strcat file2 "\\" mb))) ；；代表什么？
(if (not finfile)
   (progn
     (if (not (findfile (strcat file2 "\\" "new")))；；代表什么？
       (vl-mkdir (strcat file2 "\\" "new"))；；代表什么？
     )
     (vl-file-copy
       (strcat file1 "\\" mb)
       (strcat file2 "\\" "new" "\\" mb)
     )
     (prin1 mb)
     (setq a (1+ a))
   )
)
      )
    )
    (setq i (1+ i))
  )
  (princ "拷贝文件数总共")
  (prin1 a)
  (princ)
);;文件夹文件比较并拷贝不同的

newer

你加载 晓东通用LISP函数库后，

执行这句代码就行了

(xd::system:xcopy "c:\\abc" "*.*" "d:\\def" "/s")  目录字符串自己改需要的

newer

函数介绍去看手册

vl-file-directory-p 测试后面的字符串是不是一个目录

newer

lywzcf 发表于 2017-6-8 23:51

你注释的那些，都是VLISP的函数， 做什么的，手册介绍的很清楚，搜索论坛  葵花宝典， 下载那个手册回去看 。

sicky111

谢谢N版。   

lywzcf

newer 发表于 2017-6-8 23:57

谢谢你，，，，，