asp+fso реализует функции для обнаружения существования, создания и удаления файлов или папок'//////////////////////////////// / ////////////////FSO Operation////////////////////////////// //// /////
'Проверяем, существует ли папка
Функция FolderExits(Папка)
Папка=Server.Mappath(Папка)
Установите FSO= Server.CreateObject(Scripting.FileSystemObject)
ЕСЛИ FSO.FolderExists(Папка) Тогда
FolderExits=истина
Еще
FolderExits = ложь
Конец ЕСЛИ
Конечная функция
'Проверяем, существует ли файл
Функция FileExits(ИмяФайла)
ИмяФайла=Сервер.Mappath(ИмяФайла)
Установите FSO= Server.CreateObject(Scripting.FileSystemObject)
ЕСЛИ FSO.FileExists(имя_файла) Тогда
FileExits=истина
Еще
FileExits = ложь
Конец ЕСЛИ
Конечная функция
'Создать папку
Функция CreateFolder(Папка)
при ошибке продолжить дальше
Папка=Server.Mappath(Папка)
Установите FSO = Server.CreateObject(Scripting.FileSystemObject)
ФСО.CreateFolder(Папка)
если ошибка>0, то
ошибка.очистить
CreateFolder=False
еще
CreateFolder=Истина
конец, если
Конечная функция
'Создать файл
Функция CreateFile(ИмяФайла,Содержимое)
при ошибке продолжить дальше
ИмяФайла=Сервер.Mappath(ИмяФайла)
Установите FSO = Server.CreateObject(Scripting.FileSystemObject)
set fd=FSO.createtextfile(FileName,true)
Содержимое fd.writeline
если ошибка>0, то
ошибка.очистить
CreateFile=False
еще
CreateFile=Истина
конец, если
Конечная функция
'Удалить файлы
функция УдалитьФайл(ИмяФайла)
при ошибке продолжить дальше
Установите FSO = Server.CreateObject(Scripting.FileSystemObject)
если FSO.FileExists(FileName), то
FSO.DeleteFile имя_файла, true
конец, если
если ошибка>0, то
ошибка.очистить
УдалитьФайл=Ложь
еще
УдалитьФайл=Истина
конец, если
конечная функция
'Удалить папку
функция DeleteFolder(Папка)
при ошибке продолжить дальше
Папка=server.MapPath(Папка)
Установите FSO = Server.CreateObject(Scripting.FileSystemObject)
если FSO.FolderExists(Папка), то
Папка FSO.Deletefolder, правда
конец, если
если ошибка>0, то
ошибка.очистить
Удалить папку = Ложь
еще
Удалить папку=Истина
конец, если
конечная функция