Set fso = Server.CreateObject("Scripting.FileSystemObject")set fileobject = fso.GetFolder(server.mappath(path))
set foldercollection = fileobject.SubFoldersFor Each folder in foldercollection 
Response.Write "<tr onMouseOut=""this.style.backgroundColor=''"" onMouseOver=""this.style.backgroundColor='#f0f0f0'"">" &vbCrLf
Response.Write "<td><img src=images/closedfolder.gif ></td>" & vbCrLf
Response.Write "<td><a href=""?act=getList&path=" & (path) &"" &folder.name & """>" & folder.name & "</a></td>" & vbCrLf
Response.Write "<td><a href=""?act=deletefolder&folder=" & path &"" &folder.name & """ onClick=""return deletefolder();""><img border=0 src=images/delete.gif border=0></a></td>" &vbCrLf
    Response.Write "</tr>" &vbCrLf
Next 

解决方案 »

  1.   

    遍历读取文件夹中的文件名 循环输出几个html字符串 思路这样 懒的写了- -
      

  2.   

    查手册,随便找个readdir或opendir条目看看就行了,里面都有好多代码实例的。
      

  3.   


    <?php
    $dir = "/etc/php5/";// Open a known directory, and proceed to read its contents
    if (is_dir($dir)) {
        if ($dh = opendir($dir)) {
            while (($file = readdir($dh)) !== false) {
                echo "filename: $file : filetype: " . filetype($dir . $file) . "\n";
            }
            closedir($dh);
        }
    }
    ?> 
     仅思路..看到asp头都疼..
      

  4.   


    $dir = XOOPS_ROOT_PATH."/newsletter/"; //文件夹路径
    $handle = opendir($dir);$xoopsTpl->assign("dir_prefix", $dir_prefix);while (false !== ($Folder = readdir($handle))){
    if ($Folder != "." && $Folder != ".." && is_dir($dir . $Folder)){
    echo $Folder;//把你的输出的东西写在这
    }
    }
    closedir($handle);