Давайте представим функцию работы файла FSO в ASP.
Атрибут объекта FSO File (файл)
DateCreated возвращает дату и время создания папки
Datelaastacced возвращает дату и время последнего посещения файла
Datelaastmodify возвращает дату и время последней модификации файла
Диск возвращает объект диска привода, где находится файл
Настройки имен или имена возврата файлов
ParentFolder возвращает объект папки родительской папки файла
Путь возвращает абсолютный путь файла, вы можете использовать длинное имя файла
ShortName возвращает форму DOS -Style 8.3 имени файла
Короткопатр возвращает DOS -стиль 8.3 Форма абсолютного пути файла
Размер возвращает размер файла (байт)
Если тип может, вернуть строку инструкции типа файла
Метод объекта FSO File (файл)
Метод объекта FSO File Использование
CopyFile Copy один или несколько файлов в новый путь
CreateTexTfile создает файл и возвращает объект TextStream
DeleteFile DELETE файл
OpenTextFile открывает файл и возвращает объект TextStream для чтения или добавления
Файл имени Рена:
Код заключается в следующем:
Переименование функций (SourceName, DestName)
Dim Ofso, Ofile
uffso = server.createObject (scripting.filesystemobject)
SET OFILE = offso.getFile (server.mappath (source))))))
ofile.name = destname
Uffso = ничего
Набор Ofile = ничего
Конечная функция
Удалить файлы:
Код заключается в следующем:
Функция fsodel (имя файла)
Dim fso, f
Установить fso = server.createObject (scripting.filesystemobject)
F = server.mappath (имя файла)
Если fso.filexist (f), то тогда
Fso.deletefile f, true
конец, если
Установить f = ничего
Установить FSO = ничего
Конечная функция
Измените строку в файле:
Код заключается в следующем:
Функция fsoreplace (имя файла, цель, Repstring)
Dim objfso, objcountfile, filetempdata
Установить objfso = server.createObject (scripting.filesystemobject)
Установить objcountfile = objfso.opentextfile (server.mappath (имя файла), 1, true)
FileTempData = objcountfile.readall
objcountfile.close
FileTempData = reply (fileTempData, Target, Repstring)
Установить objcountfile = objfso.createtextfile (server.mappath (имя файла), true)
objcountfile.writ filetempdata
objcountfile.close
Установить objcountfile = ничего
Установить objfso = ничего
Конечная функция
<%
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: CreateFolder (SPAD)
'Функция: создать каталог
'Параметры: Spath: созданный путь относительного каталога
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Response.write createfolder (/dgsunshine/uploadfile/demo1/)
Функция CreateFolder (SPI)
При ошибке резюме следующим
Dim FSO, Arrfolder, Folder, i, J
Если пространство = тогда
CreateFolder = false
Выходная функция
Конец, если
Если осталось (Spath, 1) = / Then
Папка = /
Spath = Mid (Spath, 2, Len (Spath)))
Еще
Папка = ./
Конец, если
Если справа (Spath, 1) = / Then Spath = слева (spad, len (spad) -1)
Arrfolder = split (spath,/)
Установить fso = server.createObject (scripting.filesystemobject)
Для i = 0 до ubound (arrfolder)
Если я = 0, тогда
Папка = папка и arrfolder (i) и / /
Еще
Папка = папка и arrfolder (i) и / /
Конец, если
Если fso.foldRexists (server.mappath (folder)) = false then
response.write server.mappath (папка)
Fso.createfolder (server.mappath (папка))
Конец, если
Следующий
Установить FSO = ничего
Если err.number <> 0, тогда
Err.clear ()
CreateFolder = false
Еще
CreateFolder = true
Конец, если
Конечная функция
Функция 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)
'Function: создать файл
Параметр: ParamfileContent 'Содержание файла
Имя файла «ParamfilePath» (исключая путь)
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Функция CreateFile (ParamFileContent, ParamfilePath)
При ошибке резюме следующим
Dim fso, fwrite
Установить fso = server.createObject (scripting.filesystemobject)
SET FWRITE = fso.createTextFile (server.mappath (paramfilepath), true)
fwrite.write paramfilecontent
fwrite.close ()
Установить fwrite = ничего
Установить FSO = ничего
Если err.number <> 0, тогда
Err.clear ()
Createfile = false
Еще
Createfile = true
Конец, если
Конечная функция
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: Delfile (FilePath)
'Функция: удалить файлы
Параметр: FilePath Pail Pail Несколько файлов для нескольких файлов |
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Функция Delfile (FilePath)
При ошибке резюме следующим
Dim fso, Arrfile, я
Если getSafestr (filepath,) = тогда
CreateFolder = false
Выходная функция
Конец, если
Arrfile = split (filepath, | |)
Установить fso = server.createObject (scripting.filesystemobject)
для i = 0 до ubound (arrfile)
FilePath = arrfile (i)
Если fso.fileexist (server.mappath (filepath), тогда) тогда
Fso.deletefile server.mappath (filepath)
Конец, если
Следующий
Установить FSO = ничего
Если ошибка, тогда
Err.clear ()
Delfile = false
Еще
Delfile = true
Конец, если
Конечная функция
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: Delfolder (FoterPath)
'Функция: удалить каталог
«Параметр: папки -промежуток»
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Функция Delfolder (FoterPath)
При ошибке резюме следующим
Dim fso, Arrfolder, я
Если getsafestr (folderpath,) = тогда
Delfolder = false
Выходная функция
Конец, если
Arrfolder = split (folderPath, |)
Установить fso = server.createObject (scripting.filesystemobject)
Для i = 0 до ubound (arrfolder)
FOLDERPATH = ARRFOLDER (I)
Если fso.foldRexists (server.mappath (folderpath) тогда) тогда
FSO.DeleteFolder Server.mappath (FOLDERPATH)
Конец, если
Следующий
Если ошибка, тогда
Err.clear ()
Delfolder = false
'Demperror Удалить каталог не удался,
еще
Delfolder = true
Конец, если
Конечная функция
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: isexistfile (filepath)
'Function: определить, существует ли файл или каталог
Параметр: FilePath Pail Pail Несколько файлов для нескольких файлов |
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Функция isexistfile (filepath)
При ошибке резюме следующим
Dim fso, Arrfile, я
Если getSafestr (filepath,) = тогда
Isexistfile = false
Конец, если
Arrfile = split (filepath, | |)
Установить fso = server.createObject (scripting.filesystemobject)
для i = 0 до ubound (arrfile)
FilePath = arrfile (i)
Если fso.fileexist (server.mappath (filepath), тогда) тогда
Isexistfile = true
Конец, если
Если fso.foldRexist (server.mappath (filepath)), тогда
Isexistfile = true
Конец, если
Следующий
Установить FSO = ничего
Если ошибка, тогда
Err.clear ()
Isexistfile = false
'Swearror, судя по сбое файла или каталога,
еще
Isexistfile = true
Конец, если
Конечная функция
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: Delfile (FilePath)
'Функция: удаление файлов или каталога
Параметр: FilePath Pail Pail Несколько файлов для нескольких файлов |
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Функция Delfile (FilePath)
При ошибке резюме следующим
Dim fso, Arrfile, я
Если getSafestr (filepath,) = тогда
CreateFolder = false
Конец, если
Arrfile = split (filepath, | |)
Установить fso = server.createObject (scripting.filesystemobject)
для i = 0 до ubound (arrfile)
FilePath = arrfile (i)
Если fso.fileexist (server.mappath (filepath), тогда) тогда
Fso.deletefile server.mappath (filepath)
Конец, если
Если fso.foldRexist (server.mappath (filepath)), тогда
FSO.DeleteFolder Server.mappath (filePath)
Конец, если
Следующий
Установить FSO = ничего
Если ошибка, тогда
Err.clear ()
Delfile = false
'DemperRor DELETE файл или каталог не удались,
еще
Delfile = true
Конец, если
Конечная функция
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: renamefile (OldName, NewName)
'Функция: переименовать файл или каталог
«Параметр: stroldname» исходное имя файла Multi -Ses |
'Strnewname' Новый файл имя Multi -se |
'Пожалуйста, оставьте те же два параметра.
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Function renamefile (Stroldname, StrnewName)
При ошибке резюме следующим
Dim fso, Arrold, Arrnew, I, OldName, NewName
Old = getsafestr (stroldname,)
Newfile = getSafestr (strnewName,)
Если старый = или newfile = тогда
Renamefile = false
Выходная функция
Конец, если
arold = split (stroldname, |)
arrnew = split (strnewname, |)
Если ubound (arrold) <> ubound (arrnew), тогда
Renamefile = false
Выходная функция
Конец, если
Установить fso = server.createObject (scripting.filesystemobject)
для i = 0 до ubound (стрелка)
OldName = server.mappath (arrold (i))
newName = server.mappath (arrnew (i))
Если fso.filexist (oldname), а не fso.fileexists (newname), то тогда
fso.movefile OldName, NewName
'Renamefile = true
Конец, если
Следующий
Установить FSO = ничего
Если err.number <> 0, тогда
Err.clear ()
Renamefile = false
Еще
Renamefile = true
Конец, если
Конечная функция
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
'Имя функции: CopyFiles (TempSource, Tempend)
'File: копировать файл или каталог
«Параметр: Tempsource» Имя исходного файла Multi -purpose |
'Tempend' Destable File ame Multi -purpose |
Примечание: пожалуйста, сохраните одни и те же два параметра выше, и оба являются полным путем,
'Метод Server.mappath был обработан
'Return Value: успех True, Fail False
'********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ******
Функция копирования (TempSource, Tempend)
При ошибке резюме следующим
Dim Copyfso, Arrsource, Arrend
CopyFiles = false
Установить copyfso = server.createObject (scripting.filesystemobject)
Если TempSource = или Tempend = Then
Файл или каталог ошибки ошибки
CopyFiles = false
Выходная функция
Конец, если
Arrsource = split (tempsource, |)
Arrend = split (Tempend, |)
Если ubound (arrsource) <> ubound (арбит), тогда
CopyFiles = false
Выходная функция
Конец, если
для i = 0 до ubound (arrsource)
srcname = arrsource (i)
tarname = arrend (i)
Если copyfso.filexists (srcname), а не copyfso.filexist (tarname), тогда
Copyfso.copyfile srcname, tarname
CopyFiles = true
Конец, если
Если copyfso.foldRexist (srcname), а не copyfso.foldrexist (tarname), тогда
Copyfso.copyfolder srcname, tarname
CopyFiles = true
Конец, если
Следующий
Установить copyfso = ничего
Если ошибка, тогда
'Err.clear ()
CopyFiles = false
Конец, если
Конечная функция
%>