出来るのだASP Q&A掲示板(過去LOG)  訪問数 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 YasNet