出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
フォルダの配下の全ファイル表示 　 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]
[5660] フォルダの配下の全ファイル表示
投稿者：Namazuさん 2006/02/03 22:42:54
あるフォルダの配下(サブフォルダ配下含む)の全ファイルの一覧を表示させたいのでですが、方法がわかりません。

行いたいのは例えば　Rootというフォルダの配下にsubA、subというフォルダがあり、さらにsubAの下にsubc,subd、subBの下にsube,subfという具合にどこまで階層があるのかわからない場合を想定しています。

繰り返し処理文の条件をうまく使えばいけそうですが、どなたかご教授いただけないでしょうか？
[5661] Re:フォルダの配下の全ファイル表示
投稿者：YasNet（管理人）さん 2006/02/04 11:37:12
こんにちは　YasNet（管理人）です。

ばたばた、しておりまして深く解説できませんがお許しを〜
アイデアだけ提示します。

Ｄosコマンドで、TreeやDIR /Sで取得出来るので利用するのも一つの手かと思いますよ。

それでは　失礼致します。

> あるフォルダの配下(サブフォルダ配下含む)の全ファイルの一覧を表示させたいのでですが、方法がわかりません。
>
> 行いたいのは例えば　Rootというフォルダの配下にsubA、subというフォルダがあり、さらにsubAの下にsubc,subd、subBの下にsube,subfという具合にどこまで階層があるのかわからない場合を想定しています。
>
> 繰り返し処理文の条件をうまく使えばいけそうですが、どなたかご教授いただけないでしょうか？
[5662] Re:フォルダの配下の全ファイル表示
投稿者：ビギナーズラックさん 2006/02/04 23:27:55
> あるフォルダの配下(サブフォルダ配下含む)の全ファイルの一覧を表示させたいのでですが、方法がわかりません。

FileSystemOjectを使ってください。
[5663] Re:フォルダの配下の全ファイル表示
投稿者：ビギナーズラックさん 2006/02/04 23:30:56
> > あるフォルダの配下(サブフォルダ配下含む)の全ファイルの一覧を表示させたいのでですが、方法がわかりません。
>
> FileSystemOjectを使ってください。

あっ
FileSystemObjectが正解です(--;
フォルダやファイルをコレクションとして扱えていろいろできます。
FSOとかFileSystemObjectとかでググればすごい数がでてきますよ。
[5665] Re:フォルダの配下の全ファイル表示
投稿者：Lightningさん 2006/02/06 16:11:18
簡単です。
FileSystemObjectと再起呼び出しがヒントっていうか答え。

[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
%>
[5682] Re:フォルダの配下の全ファイル表示
投稿者：Namazuさん 2006/02/15 4:23:58
返信遅れまして申し訳ありません。
Lightninigさんの書かれているような再帰関数を使って自分の思うような処理が出来ました。
ありがとうございました。

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