关于delphi编程的网络文件夹复制的代码精要

最新推荐文章于 2019-08-22 14:07:36 发布

Vincent8080

最新推荐文章于 2019-08-22 14:07:36 发布

阅读量157

点赞数

本文提供了一个使用Delphi实现的复制文件夹功能的示例代码。通过调用Windows API函数SHFileOperation来完成文件夹及其内容的复制操作。示例展示了如何将一个源文件夹完整地复制到目标位置，即使目标文件夹不存在也会自动创建。

首先必须引用windows api函数库 shellapi

***************************以下为复制文件夹的代码*********************************

function CopyDirectory(const Source, Dest: string): boolean;
///复制Source整个目录到DEST目录，如果Dest不存在，自动建立，如果DEST存在，那么Source将作为Dest的子目录！
//例如如果要复制E:\Temp整个目录到E:\那么代码为： copydirectory('e:\temp','e:\');
///如果要复制E:\Temp到E:\Test目录下面，那么代码为：CopyDirecotry('E:\Temp','E:\TEST');
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
  Wnd := 0;
  wFunc := FO_COPY;
  pFrom := PChar(source+#0);
  pTo := PChar(Dest+#0);
  fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;