关于数据库复制的问题！(分实在太少了，不好意思)(10分)

我写了个函数如下：
function tfrmaddport.funFileCopy_g(strSourceFilename, strTargetFilename:string):boolean;
var
FromF,ToF:file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
funFileCopy_g:=true;
try
AssignFile(FromF, strSourceFilename);
AssignFile(ToF, strTargetFilename);
Reset(FromF, 1); { Record size = 1 }
Rewrite(ToF, 1); { Record size = 1 }
try
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
finally
CloseFile(FromF);
CloseFile(ToF);
end;
except
funFileCopy_g:=false;
end;
end;


调用时将愿数据库名和目标数据库名分别给了strFrom和strTo两个变量，然后调用函数
可是总说找不到文件！（file not found!)

大家是因为分少还是说有困难？？？？为什么没人回？？

你就是在复制文件吗，copyFile不行吗？

如果是单纯的复制文件，直接用copyFile就足够了。
可很多数据库可不能直接复制数据库文件的。

在大点的数据库中，好象只有SQL Server支持这个，
而且，还是在一定的条件下才能用，恢复的时候，还需要一些相应的命令

不好意思，是我的文件名写错了，我用这个函数实现了数据库的拷贝！
大家有兴趣的可以试试！

多人接受答案了。