Код реализации класса Fso, к нему могут обратиться друзья, изучающие класс asp. Этот код относительно старый. Скопируйте код кода следующим образом:
<%
'============================================== = ===============
'= Версия системы: 1.0 =
'= Версия файла: 1.0 =
'= Дата создания текста: 31 октября 2005 г. =
'============================================== = ===============
Класс Cls_IO
Частный объект файловой системы
Частный подкласс_Terminate()
Если IsObject(FileSystemObject) Тогда
Установить FileSystemObject = Ничего
Конец, если
Конец субтитра
'//Создаем объект FileSystemObject
Открытая функция Init_Object()
При ошибке Возобновить Далее
Если Не IsObject(FileSystemObject), Тогда
Установите FileSystemObject = Server.CreateObject(Scripting.FileSystemObject)
Если Номер ошибки <> 0 Тогда
Инициальный_Объект = Ложь
Ошиб.Очистить
Выход из функции
Еще
Инициальный_Объект = Истина
Конец, если
Конец, если
Конечная функция
Публичный субDeleteFile (ByVal Str)
При ошибке Возобновить Далее
Вызов FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
Конец субтитра
Открытая функция IsFolder(ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
Конечная функция
Открытая функция ShowFolder(ByVal Str)
Уменьшить Obj_Folder, Obj_File
Установить Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
Установите ShowFolder = Obj_Folder.Files
Установить Obj_Folder = Ничего
Конечная функция
Конечный класс
%>