Каковы наиболее часто используемые функции работы с файлами объектов файловой системы?
1. корень
Формат функции root()
Описание функции возвращает строковую переменную пути
Код приложения «пример строки = c:/intels/jingcaichunfeng/»
Открытая функция root()
корень = Request.ServerVariables(Appl_Physical_Path)
Конечная функция
2. URL-адрес
URL-адрес формата функции()
Описание функции возвращает строковую переменную URL-адреса.
Код приложения «пример строки = http://www.intels.net/filesys.asp»
URL-адрес публичной функции()
URL =http://&Request.ServerVariables(Server_Name)
&Request.ServerVariables(имя_скрипта)
Конечная функция
3. мкдир
Формат функции mkdir(DIrName)
Функция Описание Создать каталог и вернуть информацию
Код приложенияPublic Function mkdir(xVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FolderExists(xVar) Тогда
msg =Извините, каталог уже существует!
Еще
Sys.CreateFolder(xVar)
msg =Поздравляем, каталог успешно создан!
Конец, если
Установить Sys=Ничего
mkdir = сообщение
Конечная функция
4.rmdir
Формат функции rmdir(DirName)
Описание функцииУдалить каталог и вернуть информацию
Код приложенияPublic Function rmdir(xVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FolderExists(xVar) Тогда
Sys.DeleteFolder(xVar)
msg =Поздравляем, каталог успешно удален!
Еще
msg =К сожалению, каталог еще не создан!
Конец, если
Установить Sys=Ничего
rmdir = сообщение
Конечная функция
5. Исдир
Формат функции isdir(DirName)
Описание функции Проверяет, существует ли каталог, и возвращает информацию.
Код приложенияPublic Function isdir(xVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FolderExists(xVar) Тогда
сообщение = Истина
Еще
сообщение = Ложь
Конец, если
Установить Sys=Ничего
isdir = сообщение
Конечная функция
6.cpdir
Формат функции cpdir(DirName, Destination, OverWrite)
Описание функции: копирование папок и возврат информации.
Код приложенияPublic Function cpdir(xVar, yVar, zVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FolderExists(xVar) Тогда
Sys.CopyFolder xVar, root&yVar, zVar
msg =Поздравляем, копирование каталога прошло успешно!
Еще
msg =К сожалению, каталог, который вы искали, не найден!
Конец, если
Установить Sys=Ничего
cpdir=сообщение
Конечная функция
7. мвдир
Формат функции mvdir(DirName, Destination)
Функция Описание Переместить папку и вернуть информацию
Код приложенияPublic Function mvdir(xVar, yVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FolderExists(xVar) Тогда
Sys.MoveFolder xVar, root&yVar
msg =Поздравляем, каталог перемещен!
Еще
msg =К сожалению, каталог, который вы искали, не найден!
Конец, если
Установить Sys=Ничего
мвдир = сообщение
Конечная функция
8.isfile
Формат функции isfile(ИмяФайла)
Описание функции: Проверка существования файла и возврат информации.
Код приложенияPublic Function isfile(xVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FileExists(xVar) Тогда
сообщение = Истина
Еще
сообщение = Ложь
Конец, если
Установить Sys=Ничего
isfile = сообщение
Конечная функция
9. файл
Формат функции wfile(FileName, OverWrite, String)
Описание функции записывает строку в файл и возвращает информацию
Код приложенияPublic Function wfile(xVar, yVar, zVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если yVar Тогда
Установить Txt = Sys.OpenTextFile(xVar, 2)
Txt.Write(zVar)
Txt.Закрыть
msg =Поздравляем, файл успешно создан и сохранен!
Еще
Если Sys.FileExists(xVar) Тогда
msg =Извините, файл уже существует!
Конец, если
Установить Sys=Ничего
wfile=сообщение
Конечная функция
10. файл
Формат функции rfile(имя_файла)
Описание функции читает файл и возвращает информацию
Код приложенияPublic Function rfile(xVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FileExists(xVar) Тогда
Установить Txt = Sys.OpenTextFile(xVar, 1)
сообщение = Txt.ReadAll
Txt.Закрыть
Еще
msg =К сожалению, файл не существует!
Конец, если
Установить Sys=Ничего
rfile=msg
Конечная функция
11. файл
Формат функции afile(FileName, String)
Функция Описание Добавляет строку в файл и возвращает информацию.
Код приложенияPublic Function afile(xVar, zVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FileExists(xVar) Тогда
Установить Txt = Sys.OpenTextFile(xVar, 8)
Txt.Write(zVar)
Txt.Закрыть
msg =Поздравляем, файл успешно добавлен и сохранен!
Еще
msg =К сожалению, файл не существует!
Конец, если
Установить Sys=Ничего
файл = сообщение
Конечная функция
12.cpfile
Формат функции cpfile(FileName, Destination, OverWrite)
Описание функции: Копирование файла и возврат информации.
Код приложенияPublic Function cpfile(xVar, yVar, zVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FileExists(xVar) Тогда
Sys.CopyFile xVar, root&yVar, zVar
msg =Поздравляем, файл успешно скопирован!
Еще
msg =Извините, не удалось скопировать файл!
Конец, если
Установить Sys=Ничего
cpfile = сообщение
Конечная функция
13. мвфайл
Формат функции mvfile(имя файла, место назначения)
Функция Описание Переместить файл и вернуть информацию
Код приложенияPublic Function mvfile(xVar, yVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FileExists(xVar) Тогда
Sys.MoveFile xVar, root&yVar
msg =Поздравляем, файл успешно перемещен!
Еще
msg =К сожалению, перемещение файла не удалось!
Конец, если
Установить Sys=Ничего
mvfile = сообщение
Конечная функция
14.rmfile
Формат функции rmfile(имя_файла)
Описание функцииУдалить файл и вернуть информацию
Код приложенияPublic Function rmfile(xVar)
Установите Sys = Server.CreateObject(Scripting.FileSystemObject)
Если Sys.FileExists(xVar) Тогда
Sys.DeleteFile(xVar)
msg =Поздравляем, файл успешно удален!
Еще
msg =Извините, удаление файла не удалось!
Конец, если
Установить Sys=Ничего
rmfile = сообщение
Конечная функция