为啥?????????????? if copyfile('g:\word\',pchar(openDialog1.FileName),false) then showmessage('ok');各位,为什么我这拷贝文件会不成功呢?系统也没提示.请大家帮忙解决谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 'g:\word\'不对要指向具体的文件,而不是目录 对copyfile是单个文件复制,要文件夹复制,请看http://haitian.myrice.com/Soft/MyPubFuncUnit.Txt里面有多个函数可选 整个目录复制方法,可以引用api函数实现,用SHFILEOPERATION。var source:PChar;var Dest:PChar;var FileOP:TSHFILEOPSTRUCT;begin Source:='c:\windows\*'; //可以改变源路径 Dest:='c:\复制目录'; //设置目的路径 FileOp.hwnd=Handle; FileOp.wFunc:=FO_COPY; //执行文件拷贝 FileOp.pFrom:=Source; FileOp.pTo:=Dest; FileOp.fFlags:=FOF_ALLOWUNDO; //这个参数参考MSDN FileOp.hNameMappings:=nil; FileOp.lpszProgressTitle:=nil; SHFileOperation(FileOp); //再加一些错误判断end;另外:多谢huojiehai(海天子) ,我有收集了不少的资料! 寻人masks1,blazingfire,Hank,snake_eye,SQL5560,thx1180,yangjingyu 调查---你最喜欢的Delphi版本是什么? 新婚之夜 有人说,Delphi程序员不值钱,大家怎么想?是这样的吗? 一些初学者的问题(在线,提供资料也行) 在2000下安装98后,2000不能启动,那位高人有办法? 如何在下拉框上实现快捷键 请问各位朋友,有谁买过delphi软件的吗?如何知道自己买的是正版的呢? delphi5補丁問題 关于修改SQL数据库时候的id字段自动增量问题 线程的一个小问题:请大家来抢分啊 将数据从excel中导入stringGrid中!
要指向具体的文件,而不是目录
http://haitian.myrice.com/Soft/MyPubFuncUnit.Txt
里面有多个函数可选
用SHFILEOPERATION。
var source:PChar;
var Dest:PChar;
var FileOP:TSHFILEOPSTRUCT;
begin
Source:='c:\windows\*';
//可以改变源路径
Dest:='c:\复制目录';
//设置目的路径
FileOp.hwnd=Handle;
FileOp.wFunc:=FO_COPY;
//执行文件拷贝
FileOp.pFrom:=Source;
FileOp.pTo:=Dest;
FileOp.fFlags:=FOF_ALLOWUNDO;
//这个参数参考MSDN
FileOp.hNameMappings:=nil;
FileOp.lpszProgressTitle:=nil;
SHFileOperation(FileOp);
//再加一些错误判断
end;另外:多谢huojiehai(海天子) ,我有收集了不少的资料!