Код, реализованный в ASP для возврата количества файлов в указанной папке, копируется следующим образом:
'Возвращаем количество файлов в указанной папке, входное значение - абсолютный путь к жесткому диску обнаруженной папки
функция CountFilesNumber (спецификация папки)
Дим objfso,f,fc
Установите objfso=CreateObject(Scripting.FileSystemObject)
Установите f=objfso.GetFolder(folderspec)
Установить fc=f.Files
CountFilesNumber=fc.Count
установить FC=ничего
установить f=ничего
установить objfso=ничего
Конечная функция