无限级目录复制代码（站长原创）帝国cms

帝国CMS5.0正式版发布	中客:空间产品随时可无条件退款！	测试：生成20万数据共用107分钟	《帝国下载系统》全面免费
Mysql大数据备份工具下载	帝国软件旗下新站 - 站长工具	1G双线帝国空间+200M数据库=158	帝国CMS教程下载

1/3 1 2 3 ›› ›|

wm_chief
用户头衔：管理员

精华贴   ：21
发贴数   ：47583
经验值   ：108245
注册时间：2002-10-30

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》基础教程下载】 [第 1 楼]

无限级目录复制代码（站长原创）

无限级目录复制，站长原创，虽只写了短短几分钟，但还是挺有用的
<?
//本程序由wm_chief原创，如要转载，请注明作者与来源(http://www.phome.net)
$o_path="admin";//源目录
$n_path="n_admin";//新目录
class copy_path
{
function wm_chief_copypath($o_path,$n_path)
{$hand=opendir($o_path);
if(!file_exists($n_path))//目标目录不存在则建立
{$this->wm_chief_createpath($n_path);}
$i=0;
while($file=readdir($hand))
{$i++;
if($i==1||$i==2)
{continue;}
if(!(strchr($file,".")))
{
$o_s_path=$o_path."/".$file;
$n_s_path=$n_path."/".$file;
$this->wm_chief_copypath($o_s_path,$n_s_path);
}
else
{
$o_file=$o_path."/".$file;
$n_file=$n_path."/".$file;
$this->wm_chief_copyfile($o_file,$n_file);
}
}
closedir($hand);
return true;
}
function wm_chief_copyfile($o_file,$n_file)
{
copy($o_file,$n_file);
}
function wm_chief_createpath($n_path)
{
mkdir($n_path,0777);
}
}
$wm_chief=new copy_path();
$wm_chief_ok=$wm_chief->wm_chief_copypath($o_path,$n_path);
if($wm_chief_ok)
{
echo"复制完毕";
}
//本程序由wm_chief原创，如要转载，请注明作者与来源(http://www.phome.net)
?>

[零基础入门教程] [模板制作教程] [采集使用教程]
官方使用交流群：12261591

2003-12-31 11:48:30

已设置保密

顶部

引用

报告

编辑

删除

sunlang
用户头衔：举人

精华贴   ：1
发贴数   ：514
经验值   ：1764
注册时间：2002-10-30

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》零基础实例入门教程】 [第 2 楼]

强啊

2003-12-31 12:15:09

已设置保密

顶部

引用

报告

编辑

删除

qiushui
用户头衔：书生

精华贴   ：0
发贴数   ：16
经验值   ：76
注册时间：2003-12-16

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》基础教程下载】 [第 3 楼]

好东西！

2004-01-02 01:01:12

已设置保密

顶部

引用

报告

编辑

删除

wm_chief
用户头衔：管理员

精华贴   ：21
发贴数   ：47583
经验值   ：108245
注册时间：2002-10-30

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》零基础实例入门教程】 [第 4 楼]

昨天有人问，所以写出来了，顺便与大家分享谢谢

[该贴被修改 1 次，最后修改时间 0000-00-00 00:00:00 ]

[零基础入门教程] [模板制作教程] [采集使用教程]
官方使用交流群：12261591

2004-01-02 10:57:38

已设置保密

顶部

引用

报告

编辑

删除

jukey
用户头衔：版主

精华贴   ：1
发贴数   ：249
经验值   ：1099
注册时间：2003-10-07

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》基础教程下载】 [第 5 楼]

回家几天，老大又出新作，收了，不错啊！～！！

2004-01-02 21:07:30

已设置保密

顶部

引用

报告

编辑

删除

wm_chief
用户头衔：管理员

精华贴   ：21
发贴数   ：47583
经验值   ：108245
注册时间：2002-10-30

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》零基础实例入门教程】 [第 6 楼]

回家探亲了。。。。吧

[零基础入门教程] [模板制作教程] [采集使用教程]
官方使用交流群：12261591

2004-01-03 10:57:36

已设置保密

顶部

引用

报告

编辑

删除

tangshd
用户头衔：书生

精华贴   ：0
发贴数   ：15
经验值   ：89
注册时间：2004-01-28

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》基础教程下载】 [第 7 楼]

看老大的程序真是享受啊....条理清晰的很啊..佩服

2004-01-30 10:37:20

已设置保密

顶部

引用

报告

编辑

删除

wm_chief
用户头衔：管理员

精华贴   ：21
发贴数   ：47583
经验值   ：108245
注册时间：2002-10-30

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》零基础实例入门教程】 [第 8 楼]

谢谢

[零基础入门教程] [模板制作教程] [采集使用教程]
官方使用交流群：12261591

2004-01-30 10:43:08

已设置保密

顶部

引用

报告

编辑

删除

帅的像人渣
用户头衔：书生

精华贴   ：0
发贴数   ：7
经验值   ：27
注册时间：2004-02-23

信息

搜索

好友

发送悄悄话

【《帝国网站管理系统》基础教程下载】 [第 9 楼]

晕。我又看见了。

又贴个目录复制的函数。。WM_CHIEF不是针对你啊。。呵呵。因为你这个的确有缺陷。

  function CopyDirectory($dir_s, $dir_d)
  {
    $dir_s = realpath($dir_s);

    if(!is_dir($dir_s)) return;

    if(!is_dir($dir_d)) mkdir($dir_d);

    if($dir_s[strlen($dir_s)] != DIRECOTRY_SEPARATOR) $dir_s .= DIRECTORY_SEPARATOR;
    if($dir_d[strlen($dir_d)] != DIRECOTRY_SEPARATOR) $dir_d .= DIRECTORY_SEPARATOR;

    $hDir_s = opendir($dir_s);
    $hDir_d = opendir($dir_d);

    while($file = readdir($hDir_s))
    {
    if($file != '.' && $file != '..')
    {
    if(is_dir($dir_s . $file) && !is_link($dir_s . $file))
    {
    CopyDirectory($dir_s . $file, $dir_d . $file);
    }
    else
    {
    copy($dir_s . $file, $dir_d . $file);
    }
    }
    }

    closedir($hDir_s);
    closedir($hDir_d);
  }

如果我再看到什么计算目录的大小的函数，我还会发的。。：）

2004-02-23 12:41:25

已设置保密

顶部

引用

报告

编辑

删除