ディレクトリおよびディレクトリ内のファイルを移動するための ASP 関数 - インターネット上でそれらを見つけることができなかったので、Emeditor <%@ Language=vbscript %> を使用して修正しました。
<%
' ディレクトリおよびディレクトリ配下のファイルを横断する機能
%>
<%
関数Bianli(パス)
Set Fso=server.createobject(scripting.filesystemobject)
エラー時は次へ再開
Objfolder=fso.getfolder(パス) を設定します
Objsubfolders=objfolder.subfolders を設定します
Objsubfolders 内の各 Objsubfolder について
Nowpath=path + / + Objsubfolder.name
Response.write Nowpath
Objfiles=objsubfolder.files を設定します
Objfile 内の各 Objfile について
Response.write <br>---
Response.write オブジェクトファイル名
次
Response.write <p>
Bianli(nowpath) の再帰的
次
Objfolder=nothing を設定します
Objsubfolders=nothing を設定します
Fso=何も設定しない
終了機能
%>
<%
Bianli(D:) 'd: ディスクを走査します
%>