ASP,VBSでAccessデータベース操作 そのD フォルダ、ファイル抽出、検索@

フォルダ内のサブフォルダ名やファイル名を同時に抽出、検索。

あるフォルダ内のサブフォルダ名やファイル名を取得したい。

というのも、フォルダ内のサブフォルダやファイルのみ、Accessデータからデータを抽出して表示させ、リンクを張りたいからだ。

ということで、サブフォルダ名、ファイル名取得プログラムを書いた。

[test4.asp]
<%@Language="VBScript" %>
<html>
<head>
<title>ドキュメント情報の表示</title>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set gf=fs.GetFolder(Server.MapPath("./data"))

For Each sgf In gf.SubFolders
Response.Write sgf.Name & "<br>"
Next
For Each sgf In gf.Files
Response.Write sgf.Name & "<br>"
Next
%>
</body>
</html>


Set fs=Server.CreateObject("Scripting.FileSystemObject")
ファイルのオープンのためオブジェクトを作成。

Set gf=fs.GetFolder(Server.MapPath("./data"))
./dataの下のファイルやサブフォルダを取得する。

For Each sgf In gf.SubFolders
Response.Write sgf.Name & "<br>"
Next
サブフォルダ名をHTMLで出力。

For Each sgf In gf.Files
Response.Write sgf.Name & "<br>"
Next
ファイル名をHTMLで出力。

For Each sgf In gf.Files

Next
gf.Filesがある限り、sgfに代入して実行する命令。


これでファイル名、サブフォルダ名の取得に成功した。



ASPでAccess操作TOP