Информатика / Статья: Представление в Internet содержимого каталога средствами ASP

Статья: Представление в Internet содержимого каталога средствами ASP

Set fc = f.Files

i=0

'В цикле заполняем массив именами файлов текущей папки

For Each f1 In fc

farr(i) = LCase(CStr(f1.Name)) 'Преобразуем имя к нижнему регистру символов

i = i + 1

'Увеличениеразмерамассива

ReDim Preserve farr(i)

'Возвращаемрезультат

ShowFilesList = farr

End Function

Function ShowDirList(folder)

Dim fs, f, f1, fc, i

'Определяем динамический массив для хранения названий каталогов

ReDim dirarr(0)

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(folder)

Set fc = f.SubFolders

i=0

'В цикле заполняем массив именами каталогов текущей папки

For Each f1 In fc

dirarr(i) = LCase(CStr(f1.Name))

i = i + 1

ReDim Preserve dirarr(i)

'Возвращаемрезультат

ShowDirList = dirarr

End Function

К-во Просмотров: 312

Бесплатно скачать Статья: Представление в Internet содержимого каталога средствами ASP