今天無聊中練習了一下PHP遍曆檔案目錄的程式,編寫了以下兩個程式,不過品質不是很好,輕拍~~~
1、清除PHP快取檔案
複製代碼 代碼如下:
function read_dir($dir,$file)
{
$a =strpos($file,".php");
if($a>0)
{
unlink($dir . $file);
echo "delete $dir$file
";
return true;
}
if(strpos($file,".") === 0 || strpos($file,".") !== false ) return true;
if(strpos($file,".") === false || strpos($dir,"/") === false)
{
$dir = $dir . $file . "/";
if(!is_dir($dir)) return false;
$dh = opendir($dir);
while(($file = readdir($dh)) != false)
{
read_dir($dir,$file); //遞迴調用
}
}
}
function clear_caches()
{
$dir = "./temp/"; //要清除的PHP快取檔案目錄
if(!is_dir($dir)) die("It is not a dir");
$dh = opendir($dir);
while(($file = readdir($dh) )!=false)
{
//var_dump($file);
read_dir($dir,$file);
}
}
?>
2、遍曆目錄中所有檔案
複製代碼 代碼如下:
查看目錄
| 檔案名稱 |
修改時間 |
檔案大小(k) |
//$dir = "./admin/"; $dir = "c:/"; $up_dir = "上級目錄"; $up_url = $dir; if(isset($_REQUEST['act']) && $_REQUEST['act']=='list_dir') { if(emptyempty($_REQUEST['dir'])) { $up_dir="目錄為空白!"; } $dir = isset($_REQUEST['dir']) ? $_REQUEST['dir'] : $dir; } if(!is_dir($dir)) { $up_dir="無效目錄!"; } ?>
if(strpos($up_dir,"上級目錄")!==false) { //if($up_url=="") echo $up_dir; if($dir != "./admin/") { $up_url = substr($dir,0,-1); $k = strrpos($up_url,"/"); $up_url = substr($up_url,0,$k-strlen($up_url)); $up_url = $up_url ."/"; } echo "$up_dir"; } else { echo $up_dir; die(); } ?> |
$up_dir = $dir; $dh = opendir($dir); while(($file=readdir($dh)) != false) { if($file != "." && $file != ".." && $file != ".svn" ) { if(strpos($file,".") !==false) { $time = date("Y-m-d H:i:s", filectime($dir . $file)); $size = filesize($dir . $file)/1000; echo "
| $file |
$time |
$size |
"; } else { $time = date("Y-m-d H:i:s.", filectime($dir . $file)); $size = filesize($dir . $file)/1000; $dir = $dir . $file ."/"; echo "
| $file |
$time |
$size |
"; $dir = $up_dir; } } } ?>
http://www.bkjia.com/PHPjc/327822.htmlwww.bkjia.comtruehttp://www.bkjia.com/PHPjc/327822.htmlTechArticle今天無聊中練習了一下PHP遍曆檔案目錄的程式,編寫了以下兩個程式,不過品質不是很好,輕拍~~~ 1、清除PHP快取檔案 複製代碼 代碼如下...