问大家一个比较复杂的遍历文件问题.

Question

<%
FindPHPInFolder server.MapPath("w78z007")'w78z007: 你的查找目录Sub FindPHPInFolder(ByVal Folder)        
    
    Dim f, objFile, objFolder, myFiles, objSubFloders 
    
    On Error Resume Next 
    
    Set f = CreateObject("Scripting.FileSystemObject") 
    Set objFolder = f.GetFolder(Folder) 
    Set myFiles = objFolder.Files 
    
    For Each objFile In myFiles 
        if lcase(right(objFile.name,3))="php" then Response.Write  objFile.path&"<br>" 
    Next 
    
    Set objSubFloders = objFolder.SubFolders 
    For Each objFolder In objSubFloders 
        FindPHPInFolder objFolder '递归 
    Next 
    set f=myFiles
    set f=objFolder
    set f=nothing 
  End Sub
%> 

Answer 1

ls_dir("your_file_path");function ls_dir($dir) {
    if (is_dir($dir)) {
        if ($dh = opendir($dir)) {
            while (($file = readdir($dh)) !== false) {
                if($file == '.' || $file == '..') {
                    continue;
                }
                $fpfile = $dir."/".$file;                if (is_dir($fpfile)) {
                    ls_dir($fpfile);
                }
                else {
                    $fext=strtolower(substr(strrchr($fpfile,"."),1));
                    if ($fext == 'php') {
                        echo "File: $fpfile \n";
                    }
                }
            }
            closedir($dh);
        }
    }
}

Answer 2

感觉没有什么难度，不就是把A下面的子目录遍历一遍，只显示.php文件么。
<?php
foreach (glob("*.txt") as $filename) {
    echo "$filename size " . filesize($filename) . "\n";
}/* 输出类似：funclist.txt size 44686
funcsummary.txt size 267625
quickref.txt size 137820*/
?> 
把这个写成一个递归就OK了

Answer 3

http://blog.csdn.net/system128/archive/2007/12/18/1947950.aspx

Answer 4

foreach(glob('dir/*.php') as $filename)
{
    echo 'Filename: ' . $filename . '<br />';
}
在这个网站看到的 徐州网站建设