出来るのだASP Q&A掲示板(過去LOG)
訪問数 52046
昨日 889
今日 776 【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。 |
![]() ![]() ![]() ![]() ![]() |
[5667] Re:フォルダの配下の全ファイル表示 |
投稿者:Lightningさん 2006/02/06 17:02:44 |
で、簡単なサンプル <% dim objFSO set objFSO = Server.CreateObject("Scripting.FileSystemObject") sub Folder_Write(objFolder) dim fo dim fi response.write("<table border=""1"">") for each fi in objFolder.files response.write("<tr><td>" & fi.name & "</td><td></td></tr>") response.flush next for each fo in objFolder.subFolders response.write("<tr><td>Folder:" & fo.name & "</td><td>") Folder_Write(fo) response.write("</td></tr>") next response.write("</table>") end sub %> <html> <body> <table border="1"><tr><td><%=server.Mappath("./")%></td><td> <% Call Folder_Write(objFSO.GetFolder(Server.mappath("./"))) %> </td></tr></table></body></html> <% set objFSO = nothing %> |
![]() ![]() |
![]() ![]() ![]() ![]() ![]() ![]() |
TreeBBS For ASP V.0.1.3 |