FSO означает FileSystemObject, который является объектом файловой системы. Объектная модель FSO включена в библиотеку типов сценариев (Scrrun.Dll). Она также содержит пять объектов: Диск, Папка, Файл, FileSystemObject и TextStream. Очень удобно управлять свойствами файлов и папок FSO.
DateCreated возвращает дату и время создания папки.
DateLastAccessed возвращает дату и время последнего доступа к файлу.
DateLastModified возвращает дату и время последнего изменения файла.
Drive возвращает объект Drive диска, на котором расположен файл.
Имя устанавливает или возвращает имя файла.
ParentFolder возвращает объект Folder родительской папки файла.
Path возвращает абсолютный путь к файлу, можно использовать длинные имена файлов.
ShortName возвращает форму имени файла в стиле DOS 8.3.
ShortPath возвращает абсолютный путь к файлу в стиле DOS 8.3.
Размер возвращает размер файла (в байтах).
Тип Если возможно, возвращает строку, описывающую тип файла.
Методы объекта FSO file (Файл)
Использование метода файлового объекта FSO
CopyFile копирует один или несколько файлов по новому пути.
CreateTextFile создает файл и возвращает объект TextStream.
УдалитьФайл удаляет файл
OpenTextFile открывает файл и возвращает объект TextStream для чтения или добавления.
Переименуйте файл:
Скопируйте код кода следующим образом:
Функция reName(sourceName,destName)
dim oFso,oFile
set oFso=server.createobject(Scripting.FileSystemObject)
set oFile=oFso.getFile(Server.mappath(sourceName))
oFile.Name=назначение
Установить oFso=Ничего
Установить oFile=Ничего
Конечная функция
Удалить файлы:
Скопируйте код кода следующим образом:
Функция FSOdel(имя_файла)
дим fso,f
установите fso = server.CreateObject(scripting.filesystemobject)
f=server.MapPath(имя_файла)
если fso.FileExists(f), то
fso.DeleteFile f, true
конец, если
установить f = ничего
установить fso = ничего
Конечная функция
Заменить строку в файле:
Скопируйте код кода следующим образом:
Функция FSOreplace(fileName,Target,repString)
Тусклый objFSO, objCountFile, FiletempData
Установите objFSO = Server.CreateObject(Scripting.FileSystemObject)
Установите objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,repString)
Установить objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True)
objCountFile.Write FiletempData
objCountFile.Close
Установить objCountFile=Ничего
Установить objFSO = Ничего
Конечная функция
<%
'********************************************** * ***
'Имя функции: CreateFolder(sPath)
'Функция: Создать каталог
'Параметр: sPath: создан относительный путь к каталогу
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
'response.Write createfolder(/dgsunshine/UploadFile/demo1/)
Функция CreateFolder(sPath)
При ошибке Возобновить Далее
Dim Fso, Arrfolder, Папка, i, j
Если sPath= тогда
СоздатьПапку = Ложь
Выход из функции
Конец, если
Если Left(sPath,1) = / Тогда
Папка = /
sPath = Mid(sPath,2,Len(sPath))
Еще
Папка = ./
Конец, если
если Right(sPath,1) = /, то sPath = Left(sPath,Len(sPath)-1)
ArrFolder = Разделить(sPath,/)
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
Для i = 0 To Ubound(ArrFolder)
Если я = 0, то
Папка = Папка & ArrFolder(i) &/
Еще
Папка = Папка & ArrFolder(i) &/
Конец, если
Если Fso.folderExists(Server.MapPath(Folder)) = False, тогда
ответ.Запись server.MapPath(папка)
Fso.createFolder(Server.MapPath(Папка))
Конец, если
Следующий
Установить Fso = ничего
Если Номер ошибки <> 0, то
Ошибка.очистить()
СоздатьПапку = Ложь
Еще
СоздатьПапку = Истина
Конец, если
Конечная функция
Функция getFile(paramFilePath)
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
Установите Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Установите Fso_Read = Ничего
Установить Fso = Ничего
Конечная функция
'********************************************** * ***
'Имя функции: CreateFile(paramFileContent,paramFilePath)
'Функция: Создать файл
'Параметр: paramFileContent 'Содержимое файла
' paramFilePath 'Имя файла (без пути)
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция CreateFile(paramFileContent,paramFilePath)
При ошибке Возобновить Далее
Дим Фсо,fWrite
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
Установите fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write параметрFileContent
fWrite.close()
Установить fWrite = ничего
Установить Fso = ничего
Если Номер ошибки <> 0 Тогда
Ошибка.очистить()
СоздатьФайл = Ложь
Еще
СоздатьФайл = Истина
Конец, если
Конечная функция
'********************************************** * ***
'Имя функции: DelFile(FilePath)
'Функция: удалить файлы
'Параметр: FilePath 'Путь к файлу, состоящий из нескольких файлов, разделенных |
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция DelFile(FilePath)
При ошибке Возобновить Далее
Dim fso,arrFile,i
Если GetSafeStr(FilePath,)= тогда
СоздатьПапку = ложь
Выход из функции
Конец, если
arrFile = Разделить(FilePath, |)
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
для i=0 до UBound(arrFile)
FilePath = arrFile (я)
Если Fso.FileExists(Server.MapPath(FilePath)) то
Fso.DeleteFile Server.MapPath(FilePath)
Конец, если
Следующий
Установите fso = ничего
Если Эрр, то
Ошибка.очистить()
ДелФайл = ложь
Еще
ДелФайл = правда
Конец, если
Конечная функция
'********************************************** * ***
'Имя функции: DelFolder(FolderPath)
'Функция: удалить каталог
'Параметр: FolderPath 'Путь к каталогу' Несколько каталогов разделяются |
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция DelFolder(FolderPath)
При ошибке Возобновить Далее
Дим Fso,arrFolder,i
Если GetSafeStr(FolderPath,)= тогда
Делфолдер = ложь
Выход из функции
Конец, если
arrFolder = Разделить (Путь к папке, |)
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
Для i=0 до UBound(arrFolder)
Путь к папке = arrFolder (я)
Если Fso.folderexists(Server.MapPath(FolderPath)) тогда
Fso.deleteFolder Server.MapPath(FolderPath)
Конец, если
Следующий
Если Эрр, то
Ошибка.очистить()
Делфолдер = ложь
'ShowError Не удалось удалить каталог,
еще
Делфолдер = правда
Конец, если
Конечная функция
'********************************************** * ***
'Имя функции: IsExistFile(FilePath)
'Функция: определить, существует ли файл или каталог
'Параметр: FilePath 'Путь к файлу, состоящий из нескольких файлов, разделенных |
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция IsExistFile(FilePath)
При ошибке Возобновить Далее
Dim fso,arrFile,i
Если GetSafeStr(FilePath,)= тогда
Исексистфиле = ложь
Конец, если
arrFile = Разделить(FilePath, |)
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
для i=0 до UBound(arrFile)
FilePath = arrFile (я)
Если Fso.FileExists(Server.MapPath(FilePath)) то
ИсExistFile = Истина
Конец, если
Если Fso.folderexists(Server.MapPath(FilePath)) тогда
ИсExistFile = Истина
Конец, если
Следующий
Установите fso = ничего
Если Эрр, то
Ошибка.очистить()
Исексистфиле = ложь
'ShowError Не удалось определить, существует ли файл или каталог,
еще
ИсExistFile = истина
Конец, если
Конечная функция
'********************************************** * ***
'Имя функции: DelFile(FilePath)
'Функция: удалить файлы или каталоги
'Параметр: FilePath 'Путь к файлу, состоящий из нескольких файлов, разделенных |
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция DelFile(FilePath)
При ошибке Возобновить Далее
Dim fso,arrFile,i
Если GetSafeStr(FilePath,)= тогда
СоздатьПапку = ложь
Конец, если
arrFile = Разделить(FilePath, |)
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
для i=0 до UBound(arrFile)
FilePath = arrFile (я)
Если Fso.FileExists(Server.MapPath(FilePath)) то
Fso.DeleteFile Server.MapPath(FilePath)
Конец, если
Если Fso.folderexists(Server.MapPath(FilePath)) тогда
Fso.deleteFolder Server.MapPath(FilePath)
Конец, если
Следующий
Установите fso = ничего
Если Эрр, то
Ошибка.очистить()
ДелФайл = ложь
'ShowError Не удалось удалить файл или каталог,
еще
ДелФайл = правда
Конец, если
Конечная функция
'********************************************** * ***
'Имя функции: ReNameFile((oldName,newName)
'Функция: переименовать файлы или каталоги
'Параметр: strOldName 'Несколько исходных имен файлов разделяются |
' strNewName ' Несколько новых имен файлов разделяются |
' Пожалуйста, сохраняйте согласованность двух вышеуказанных параметров
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция ReNameFile(strOldName,strNewName)
При ошибке Возобновить Далее
Dim fso,arrOld,arrNew,i,oldName,newName
старый = GetSafeStr(strOldName,)
Новыйфайл = GetSafeStr(strNewName,)
Если old = или Newfile =, то
РеНамеФайл = ложь
Выход из функции
Конец, если
arrOld = Разделить(strOldName,|)
arrNew = Split(strNewName,|)
Если UBound(arrOld)<> UBound(arrNew), то
РеНамеФайл = ложь
Выход из функции
Конец, если
Установите Fso = Server.CreateObject(Scripting.FileSystemObject)
для i=0 до UBound(arrOld)
oldName = Server.MapPath(arrOld(i))
новоеИмя = Server.MapPath(arrNew(i))
Если Fso.FileExists(oldName), а не Fso.FileExists(newName), тогда
fso.MoveFile старое имя, новое имя
'ReNameFile = Истина
Конец, если
Следующий
Установите fso = ничего
Если Номер ошибки <> 0 Тогда
Ошибка.очистить()
РеНамеФайл = ложь
Еще
ПереименованиеФайла = Истина
Конец, если
Конечная функция
'********************************************** * ***
'Имя функции: CopyFiles((TempSource,TempEnd)
'Функция: копирование файлов или каталогов
'Параметр: TempSource 'Несколько имен исходных файлов разделяются |
'TempEnd' Несколько имен файлов назначения разделяются |
' Примечание. Пожалуйста, следите за тем, чтобы оба вышеуказанных параметра были согласованными и оба были полными путями.
'Было обработано методом Server.MapPath
'Возвращаемое значение: true в случае успеха, false в случае неудачи
'********************************************** * ***
Функция CopyFiles(TempSource,TempEnd)
При ошибке Возобновить Далее
Тусклый CopyFSO,arrSource,arrEnd
Копифилес = ложь
Установите CopyFSO = Server.CreateObject(Scripting.FileSystemObject)
Если TempSource = или TempEnd =, то
ErrRaise Копировать файлы или каталоги, условие пустое
Копифилес = ложь
Выход из функции
Конец, если
arrSource = Разделить(TempSource,|)
arrEnd = Разделить(TempEnd,|)
Если UBound(arrSource) <> UBound(arrEnd), то
Копифилес = ложь
Выход из функции
Конец, если
для i=0 до UBound(arrSource)
имя_источника = источник_источника(я)
tarName = arrEnd(i)
ЕСЛИ CopyFSO.FileExists(srcName), а не CopyFSO.FileExists(tarName), то
CopyFSO.CopyFile имя_источника,имя_tarName
Копифилес = правда
Конец, если
ЕСЛИ CopyFSO.FolderExists(srcName), а не CopyFSO.FolderExists(tarName), то
CopyFSO.CopyFolder имя_источника,имя_tarName
Копифилес = правда
Конец, если
Следующий
Установить CopyFSO = Ничего
Если Эрр, то
'Ошибка.очистить()
Копифилес = ложь
Конец, если
Конечная функция
%>