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

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

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

別の方法もあったので紹介する。
この方法だと、拡張子が付かなくなってしまい、サブフォルダとファイルの区別が付かない。
実のところ、この方法でリンクを貼るところまで作ろうとしてしまったので、まずは失敗路線から記載していく。


[test5.asp]
<%@Language="VBScript" %>
<html>
<head>
<title>ドキュメント情報の表示</title>
<body>
<%
Set fs=Server.CreateObject("Shell.Application")
Set fn=fs.NameSpace(Server.MapPath("./data"))
Set fc=fn.Items

For Each sfc In fc
Response.Write sfc.Name & "<br>"
Next
%>
</body>
</html>


Set fs=Server.CreateObject("Shell.Application")
シェルアプリケーションでファイル名が取得できるためオブジェクトを作成。
シェルアプリケーションはファイルの属性を取り込むための物。

Set fn=fs.NameSpace(Server.MapPath("./data"))
./dataの下のファイル名やサブフォルダ名を取得する。
ただし、拡張子までは取得できない。

Set fc=fn.Items
fcにファイル名の属性をセットする。


For Each sfc In fc
Response.Write sfc.Name & "<br>"
Next
ファイル名、サブフォルダ名が一緒になって拡張子なしでHTMLで出力。

sfc.Nameでファイル名だが、Nameの部分を変えればファイルの属性を表示することができる。


この方法で取得したファイル名を元にAccessファイルへアクセスして、情報を抽出する。



ASPでAccess操作TOP