********************************************
Много раз нам может понадобиться какая-то часть кода, которая будет получить доступ к всем субсолдевам сервера, а также всем
Файлы в подразделе.
Следующая строка кода ASP будет отображаться в указанной папке и искать все подразделения
(Не рекурсивно, код может быть расширен для того, чтобы сделать) и считывает все файлы (в основном текстовые файлы) один за другим.
Вы можете указать любое имя папки, в замечаниях, приведенных в коде (внутри)
'Создать объект файловой системы
set filesystem = server.createObject (scripting.filesystemobject)
Dim dbconn
folderPath = server.mappath (основной путь папки)
Установите sfolder = fileSystem.getFolder (folderPath) .subfolders
для каждой паптики в SFFOLDER
SET FILES = FOLTERITEM.FILES
Для каждого файла в файлах
fname = server.mappath (основной путь папки и fotheritem.name & / & failitem.name
set file = fileystem.opentextfile (fname, 1, false)
while file.atendofstream <> true
record = split (file.readline, ~)
Венд
File.close
Fileystem.deletefile (fname)
следующий
следующий
********************************************