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
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
<?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头都疼..
$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);