谁能给出一个复制整个文件夹的函数？

谢谢了
---------------------------------------------------------------

1   
2/*************************************   
3* 系统名称：模拟xcopy的类   
4* 程序功能：模拟xcopy的类   
5* 开发日期：2003/03/14   
6*************************************/

read()) { if(($entry!=".")&&($entry!="..")){ if(is_dir($source."/".$entry)){ if($child) xCopy($source."/".$entry,$destination."/".$entry,$child); } else{ copy($source."/".$entry,$destination."/".$entry); } } } return 1; } ?>