出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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
%>
フォルダの配下の全ファイル表示 　 Namazuさん [2006/02/03 22:42:54] [5660]
　 Re:フォルダの配下の全ファイル表示 　 YasNet（管理人）さん [2006/02/04 11:37:12] [5661]
　 Re:フォルダの配下の全ファイル表示 　 ビギナーズラックさん [2006/02/04 23:27:55] [5662]
　 　 Re:フォルダの配下の全ファイル表示 　 ビギナーズラックさん [2006/02/04 23:30:56] [5663]
　 Re:フォルダの配下の全ファイル表示 　 Lightningさん [2006/02/06 16:11:18] [5665]
　 　 Re:フォルダの配下の全ファイル表示 　 Lightningさん [2006/02/06 17:02:44] [5667]
　 　 　 Re:フォルダの配下の全ファイル表示 　 Namazuさん [2006/02/15 4:23:58] [5682]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ