//目录拷贝函数到任意目录
function dir1($filename,$dest){
static $dirname;
$dirname.=$dest;
//连接头(第一层目录)
static $dir;
//中间变量
if(file_exists($filename)){
//如果文件存在
if(is_dir($filename)){
//如果是目录,则先创建目录然后遍历
$dirnames=basename($filename);
//取最后的目录或者文件名,链接到要转移到的第一层目录
$dirname.=‘/‘.$dirnames;
//通过不断叠加,获取总的路径
$dir=$dirname;
//短路操作
is_dir($dirname)||mkdir($dirname,0007,true);
//遍历目录
$file=glob($filename.‘/*‘);
foreach ($file as $value){
//取到最后的文件名
$files=basename($value);
//链接到最后一级
$dir.=‘/‘.$files;
//递归调用
if(is_dir($value)){dir1($value,‘‘);};
if(is_file($value)){
//如果是文件,则直接拷贝
fopen($dir, ‘w‘);
copy($filename, $dir);
}
$dir=dirname(($dir));
}
}
}
}
程序略显臃肿》_《