求助，复制文件问题！

Question

我做了个外挂，用来自动复制图片到指定文件夹，用的API的copyfile（），但是我放一二十个文件复制没问题，但是多了，就有些文件复制不成功。
各位大大，该如何解决呀？

Answer 1

如果每次都是超过20个文件就出问题，那就很好查了，直接写个app来测试

Answer 2

最好加些日志，文件拷贝失败，调用 GetLastError. 

Answer 3

能具体点吗？才接触Delphi没多久，不是很清楚。

Answer 4

procedure CopyFile(FromFileName:string;ToFileName:string);
var FromFile,ToFile        : file;
    NumRead, NumWritten    : integer;
    Buf                    : array[1..2048] of Char;
begin
  AssignFile(FromFile, FromFileName);
  Reset(FromFile, 1);                { Record size = 1 }
  AssignFile(ToFile, ToFileName); { Open output file }
  Rewrite(ToFile, 1);                { Record size = 1 }
  repeat
    BlockRead(FromFile, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToFile, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(FromFile);
  CloseFile(ToFile);
end;