为啥??????????????

Question

if copyfile('g:\word\',pchar(openDialog1.FileName),false) then
         showmessage('ok');
各位,为什么我这拷贝文件会不成功呢?系统也没提示.请大家帮忙解决谢谢!

Answer 1

'g:\word\'不对
要指向具体的文件，而不是目录

Answer 2

对copyfile是单个文件复制，要文件夹复制，请看
http://haitian.myrice.com/Soft/MyPubFuncUnit.Txt
里面有多个函数可选

Answer 3

整个目录复制方法，可以引用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(海天子) ，我有收集了不少的资料！