goodlook
中级会员
 
中级会员
UID 18784
精华
0
积分 380
帖子 388
金钱 380 喜悦币
威望 0
人脉 0
阅读权限 30
注册 2003-3-8
状态 离线
|
文件夹树型结构 && 文件夹概况
第一个适用于文件比较少的目录相看情况，第二个适用于文件特别多（我的8W多个文件的目录，用第一个不被执行，呵呵）
用法：将文件放入想查看信息的文件夹根目录，执行即可。也可在程序内设置目录路径。
因为比较简单，就没有写说明。
记不得是什么时候写的了，这几天用着了，改了一点点，顺便发出来。
附件中是两个文件打包。
文件夹树型结构
<?php
/*****************************************************
* 原文转载请保留以下信息:)
* 中文名 : 文件夹树型结构
* 版权 : [url]www.homesee.cn[/url]
* 文件名 : dir.php
* 作者 : StartMenu (QQ:4681411,msn:moneyease@msn.com)
* 功能 : 文件夹详情
* 制作 : 200-7-5
* 广告 : 特价优质虚拟主机代理： [url]http://www.hostme.cn[/url]
*****************************************************/
error_reporting(2047);
$a = new haosee_dir;
$a->d='./';
$a->show();
$d=$a->dir_file;
show_dir($d);
function show_dir($ds,$t='|--'){
for($i=0;$i<count($ds);$i++){
$d=$ds[$i];
if($d['type']=='dir'){
echo $t.$d['name']."[size=".show_size($d['size'])."][time=".date('Y-m-d H:i:s',$d['time'])."][dir_num=".$d['dir_num']."][file_num=".$d['file_num']."]<br>";
$info=$d['info'];
show_dir($info,"| ".$t);
}
elseif($d['type']=='file'){
echo $t.$d['name']."[size=".show_size($d['size'])."][time=".date('Y-m-d H:i:s',$d['time'])."]<br>";
}
}
}
class haosee_dir{
var $d;
var $dir_file=array();
function show(){
return $this->dir_file[]=$this->read_dir($this->d);
}
function read_dir($dir){
$f_d_num=0;
$f_f_num=0;
$f_size=0;
if(@is_dir($dir)) $f_type='dir';
elseif(@is_file($dir)) $f_type='file';
$handle = @opendir($dir);
while ($file = @readdir ($handle)){
if (@eregi("^.{1,2}$",$file)){
continue;
}
$t_file=$dir.'/'.$file;
unset($f_a);
$f_a['name']=$file;
if( @is_dir($t_file) ){
$f_a['type']='dir';
$n_dir_info=$this->read_dir($t_file);
$f_a['size']=$n_dir_info['size'];
$f_a['time']=@filemtime($t_file);
$f_a['dir_num']=$n_dir_info['dir_num'];
$f_a['file_num']=$n_dir_info['file_num'];
$f_a['info']=$n_dir_info['info'];
$f_d_num++;
}
elseif(is_file($t_file)){
$f_a['type']='file';
$f_a['size']=@filesize($t_file);
$f_a['time']=@filemtime($t_file);
$f_f_num++;
}
$f_size+=$f_a['size'];
$f[]= $f_a;
}
@closedir($handle);
$dirx=@explode('/',$dir);
$f_f['name']=$dirx[count($dirx)-1];
unset($dirx);
$f_f['type']=$f_type;
$f_f['size']=$f_size;
$f_f['time']=@filemtime($dir);
$f_f['dir_num']=$f_d_num;
$f_f['file_num']=$f_f_num;
$f_f['info']=$f;
return $f_f;
}
}
function show_size($size){
return $size=
($size<1024?$size.'B':
($size<1024*1024?number_format($size/1024,2).'KB':
($size<1024*1024*1024?number_format($size/1024/1024,2).'MB':
number_format($size/1024/1024/1024,2).'GB')));
}
?> 文件夹概况
<?php
/*****************************************************
* 原文转载请保留以下信息:)
* 中文名 : 文件夹概况
* 版权 : [url]www.homesee.cn[/url]
* 文件名 : dirinfo.php
* 作者 : StartMenu (QQ:4681411,msn:moneyease@msn.com)
* 功能 : 文件夹详情
* 制作 : 200-7-5
* 广告 : 特价优质虚拟主机代理： [url]http://www.hostme.cn[/url]
*****************************************************/
error_reporting(2047);
$a = new haosee_dir;
$a->d='./';
$a->show();
$d=$a->dir_file;
echo '本文件夹下共<font color=red>'.$d[0]['dir_num'].'</font>个文件夹,<font color=red>'.$d[0]['file_num'].'</font>个文件,共计<font color=red>'.show_size($d[0]['size']).'</font>';
class haosee_dir{
var $d;
var $dir_file=array();
function show(){
return $this->dir_file[]=$this->read_dir($this->d);
}
function read_dir($dir){
$f_d_num=0;
$f_f_num=0;
$f_size=0;
$handle = @opendir($dir);
while ($file = @readdir ($handle)){
if (@eregi("^.{1,2}$",$file)){
continue;
}
$t_file=$dir.'/'.$file;
unset($f_a);
if( @is_dir($t_file) ){
$n_dir_info=$this->read_dir($t_file);
$f_a['size']=$n_dir_info['size'];
$f_a['dir_num']=$n_dir_info['dir_num'];
$f_a['file_num']=$n_dir_info['file_num'];
$f_d_num+= $f_a['dir_num'];
$f_f_num+=$f_a['file_num'];
$f_d_num++;
}
elseif(@is_file($t_file)){
$f_a['size']=@filesize($t_file);
$f_f_num++;
}
$f_size+=$f_a['size'];
}
@closedir($handle);
$f_f['size']=$f_size;
$f_f['dir_num']=$f_d_num;
$f_f['file_num']=$f_f_num;
return $f_f;
}
}
function show_size($size){
return $size=
($size<1024?$size.'B':
($size<1024*1024?number_format($size/1024,2).'KB':
($size<1024*1024*1024?number_format($size/1024/1024,2).'MB':
number_format($size/1024/1024/1024,2).'GB')));
}
?> [ 本帖最后由 goodlook 于 2006-7-5 11:07 AM 编辑 ]
 附件: 您所在的用户组无法下载或查看附件
| 
超值blog主机,大IIS,大流量45元,QQ:4681411
www.hostme.cn |
|
