5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
goomoo 2003-02-12
- 打赏
- 举报
同意 sysu(死树) !!
weitao999 2003-02-12
- 打赏
- 举报
慢了！
API函数CopyFile
API函数CopyFile
sysu 2003-02-12
- 打赏
- 举报
一个简单的方法：
先Uses Shellapi；
然后：
var
shfos: SHFILEOPSTRUCT;
begin
with shfos do begin
shfos.Wnd := 0;
shfos.wFunc := FO_COPY;
pFrom := 'd:\source\*.*';
pTo := 'd:\dest\';
fFlags := FOF_SILENT;
fAnyOperationsAborted := True;
hNameMappings := nil;
end;
SHFileOperation(shfos);
end;
先Uses Shellapi；
然后：
var
shfos: SHFILEOPSTRUCT;
begin
with shfos do begin
shfos.Wnd := 0;
shfos.wFunc := FO_COPY;
pFrom := 'd:\source\*.*';
pTo := 'd:\dest\';
fFlags := FOF_SILENT;
fAnyOperationsAborted := True;
hNameMappings := nil;
end;
SHFileOperation(shfos);
end;
bluenightsky 2003-02-12
- 打赏
- 举报
netwolfds(晓竹)说得对
aonesky 2003-02-12
- 打赏
- 举报
具体点好吗？
netwolfds 2003-02-12
- 打赏
- 举报
用findfirst和findnext查找所有原文件夹的所有文件，然后用copyfile拷贝
到新文件夹中.
到新文件夹中.
