发信人: delphilxh(先锋)
整理人: soaringbird(2001-10-30 08:06:46), 站内信件
|
【 在 teleme 的大作中提到：】
:【 在 st97sb 的大作中提到：】
::谁有对整个复制进行目录的例子
::......
:在<delphi5 程序员参考手册>上有一个完整的例子
:也可以参考精华区相关例子进行改造，首先建立一个list,然后对整个目录进行遍历，然后存到list中每个文件和位置，一个一个的拷贝即可
:......
function CopyDirectory(const Source, Dest: string): boolean;
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;
----
██████
█┏━━┓█ Delphi先锋网欢迎您!!!!
█┃之先┃█ 北京网易Delphi论坛
█┃印锋┃█
█┗━━┛█
██████
|
|