Функции ASP для обхода каталогов и файлов в каталогах — в Интернете я их не нашел, поэтому исправил с помощью Emeditor <%@ Language=vbscript %>
<%
'Функция для перемещения по каталогам и файлам в каталогах
%>
<%
ФункцияBianli(путь)
Установите Fso=server.createobject(scripting.filesystemobject)
При ошибке Возобновить Далее
Установите Objfolder=fso.getfolder(путь)
Установите Objsubfolders=objfolder.subfolders
Для каждой подпапки Objsubfolders в Objsubfolders
Nowpath=путь + / + Objsubfolder.name
Response.write Nowpath
Установите Objfiles=objsubfolder.files
Для каждого Objfile в Objfiles
Response.write <br>---
Response.write Objfile.name
Следующий
Ответ.запись <p>
Бяньли(nowpath)'рекурсивный
Следующий
Установить Objfolder=ничего
Установить Objsubfolders=ничего
Установить Fso=ничего
Конечная функция
%>
<%
Bianli(D:) 'Обход диска d:
%>