vc中如何把一个目录包括目录下所有文件，以及子目录复制到指定目录中

Posted 2023-04-30

除了使用遍历所有文件的方法，有没有什么更好的方法

复制文件和目录树。

XCOPY source [destination] [/A | /M] [/D[:date]] [/P] [/S [/E]] [/V] [/W]
[/C] [/I] [/Q] [/F] [/L] [/G] [/H] [/R] [/T] [/U]
[/K] [/N] [/O] [/X] [/Y] [/-Y] [/Z]
[/EXCLUDE:file1[+file2][+file3]...]

source 指定要复制的文件。
destination 指定新文件的位置和/或名称。
/A 只复制有存档属性集的文件，
但不改变属性。
/M 只复制有存档属性集的文件，
并关闭存档属性。
/D:m-d-y 复制在指定日期或指定日期以后更改的文件。
如果没有提供日期，只复制那些源时间
比目标时间新的文件。
/EXCLUDE:file1[+file2][+file3]...
指定含有字符串的文件列表。每一个字符串
必须在文件的单独行中。如果有任何
字符串与要被复制的文件的绝对路径
相符，那个文件将不会得到复制。
例如，指定如 \obj\ 或 .obj 的字符串会排除
目录 obj 下面的所有文件或带有
.obj 扩展名的文件。
/P 创建每个目标文件前提示。
/S 复制目录和子目录，除了空的。
/E 复制目录和子目录，包括空的。
与 /S /E 相同。可以用来修改 /T。
/V 验证每个新文件。
/W 提示您在复制前按键。
/C 即使有错误，也继续复制。
/I 如果目标不存在，又在复制一个以上的文件，
则假定目标一定是一个目录。
/Q 复制时不显示文件名。
/F 复制时显示完整的源和目标文件名。
/L 显示要复制的文件。
/G 允许将没有经过加密的文件复制到
不支持加密的目标。
/H 也复制隐藏和系统文件。
/R 覆盖只读文件。
/T 创建目录结构，但不复制文件。
不包括空目录或子目录。/T /E 包括
空目录和子目录。
/U 只复制已经存在于目标中的文件。
/K 复制属性。一般的 Xcopy 会重置只读属性。
/N 用生成的短名复制。
/O 复制文件所有权和 ACL 信息。
/X 复制文件审核设置(隐含 /O)。
/Y 复制文件审核设置(隐含 /O)。
现存目标文件。
/-Y 导致提示以确认改写一个
现存目标文件。
/Z 用重新启动模式复制网络文件。

命令行开关 /Y 可以预先在 COPYCMD 环境变量中设置。
这可能被命令行上的 /-Y 改写。 参考技术A 调用系统命令行，System("xcopy sourceDir destDir")；具体你自己测试一下吧~本回答被提问者采纳 参考技术B 为什么不用遍历呢，一个FindFirstFile，一个FindNextFile递归就完了。看起来xcopy的参数也不少啊,前几天回答过一个人。 参考技术C copy sorceDir\*.* destDir /s 参考技术D 还是自己写吧
我刚写了个 你不会就给你讲讲呵呵
不太难写 来个递归搞定

delphi中如何生成一个目录(包括子目录)的文件列表

使用delphi如何生成一个目录(包括子目录)的文件列表呢,就象一些播放器那样,指定一个目录,就可以把目录及子目录下所有的音乐文件添加到列表里.

参考技术A function FileList(Path: string; Attr: Integer = FAAnyfile): TStrings;
var
SR: TSearchRec;
begin
Result := TStringList.Create;
if Path[Length(Path)] <> '\' then
Path := Path + '\';
if (Attr and FADirectory) <> FADirectory then
Attr := Attr or FADirectory;
if FindFirst(Path + '*.*', Attr, SR) = 0 then
repeat
if (SR.Attr and FADirectory) = FADirectory then begin
if (SR.Name <> '.') and (SR.Name <> '..') then
Result.AddStrings(FileList(Path + SR.Name));
end
else
Result.Add(Path + SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
end;本回答被提问者采纳 参考技术B 利用递归遍历该目录下的所有子目录文件,
我有原代码,可以加我QQ78513746
利用findfirst,findnext,这样自由空间更大 参考技术C 在控件栏打开 win31 选项，使用文件列表控件：filelistbox,directorylistbox,drivecombobox即可轻松实现