复制代码代码如下所示：
<
指定文件夹文件
为文件列表=阵（）；
功能visitfile（$路径）
{
全球$文件列表；
$路径= str_replace（
美元（$路径）FDIR = dir；
而（（文件）= $ FDIR ->读（假）= =！）
{
如果（文件= = = =..文件。| | {继续}）；
pathsub美元= preg_replace（× / { 2 } *
文件列表{ } = is_dir美元（美元pathsub）pathsub美元。 / ：pathsub美元；
如果（is_dir（$ pathsub））{ visitfile（$ pathsub）；}
}
$ FDIR ->关闭（）；
返回的文件列表；
}
>
<
$路径= str_replace（
$路径= preg_replace（× / { 2 } *
>
路径：
磁盘根目录
网络的地方。/ phpMyAdmin
本地磁盘文件：
<
如果（！空（$路径）{
$路径= preg_replace（× / { 2 } *
文件visitfile美元（$路径）；
开关（strtolower（$ _get {行动））））
{
案例视图：
foreach（美元美元美元的关键文件=价值）
{
printf（号为4d。%s%s R
}
打破；
案例删除：
failefiles美元=阵（）；
foreach（array_reverse（$文件）作为美元的价值）
{
如果（！unlink（美元值））
{
array_push（failefiles美元，美元的价值）；
}
}
如果（！unlink（$路径））{ array_push（failefiles美元，$路径）；}
如果（计数（$ failefiles）> 0）
{
printf（删除失败的文件（%）： R
foreach（failefiles美元美元美元关键=价值）
{
printf（号为4d。%s%s R
}
}
打破；
}
}
>
