1、ASP FSO操作文件复制文件重命名文件删除文件替换字符串ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符串) FSO的意思是FileSystemObject,即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象,用来操作文件和文件夹十分方便。 (请注意后面的常用函数)FSO文件(File)对象属性DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateL
2、astModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文件的名字 ParentFolder 返回该文件的父文件夹的Folder对象 Path 返回文件的绝对路径,可使用长文件名 ShortName 返回DOS风格的8.3形式的文件名 ShortPath 返回DOS风格的8.3形式的文件绝对路径 Size 返回该文件的大小(字节) Type 如果可能,返回一个文件类型的说明字符串 FSO文件(File)对象方法 FSO文件对象方法 用途 CopyFile 拷贝一个或者多个文件到新路径 CreateTextFile 创建
3、文件并且返回一个TextStream对象 DeleteFile 删除一个文件 OpenTextFile 打开文件并且返回TextStream对象,以便读取或者追加重命名文件: Function reName(sourceName,destName) dim oFso,oFile set oFso=server.createobject(Scripting.FileSystemObject) set oFile=oFso.getFile(Server.mappath(sourceName) oFile.Name=destName Set oFso=Nothing Set oFile=Nothin
4、g End Function删除文件:Function FSOdel(fileName) dim fso,f set fso = server.CreateObject(scripting.filesystemobject) f=server.MapPath(fileName) if fso.FileExists(f) then fso.DeleteFile f,true end if set f = nothing set fso = nothing End Function替换文件中的字符串:Function FSOreplace(fileName,Target,repString) Di
5、m objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject(Scripting.FileSystemObject) Set objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True) FiletempData = objCountFile.ReadAll objCountFile.Close FiletempData=Replace(FiletempData,Target,repString) Set objCountFile=objFSO.C
6、reateTextFile(Server.MapPath(fileName),True) objCountFile.Write FiletempData objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing End Function% * 函数名:CreateFolder(sPath) 作 用: 创建目录 参 数:sPath : 创建的相对目录路径 返回值:成功 true , 失败 false * response.Write createfolder(/dgsunshine/UploadFile/demo1/) Fu
7、nction CreateFolder(sPath) On Error Resume Next Dim Fso,Arrfolder,Folder,i,j If sPath= then CreateFolder = False Exit Function End If If Left(sPath,1) = / Then Folder = / sPath = Mid(sPath,2,Len(sPath) Else Folder = ./ End If if Right(sPath,1) = / then sPath = Left(sPath,Len(sPath)-1) ArrFolder = Sp
8、lit(sPath,/) Set Fso = Server.CreateObject(Scripting.FileSystemObject) For i = 0 To Ubound(ArrFolder) If i = 0 then Folder = Folder & ArrFolder(i) & / Else Folder = Folder & ArrFolder(i) & / End If If Fso.folderExists(Server.MapPath(Folder) = False then response.Write server.MapPath(folder) Fso.crea
9、teFolder(Server.MapPath(Folder) End If Next Set Fso = nothing If Err.Number 0 then Err.clear() CreateFolder = False Else CreateFolder = True End If End function Function getFile(paramFilePath) Set Fso = Server.CreateObject(Scripting.FileSystemObject) Set Fso_Read = fso.OpenTextFile(Server.MapPath(pa
10、ramFilePath),1,false,-2) getFile = Fso_Read.readall Set Fso_Read = Nothing Set Fso = Nothing End Function * 函数名:CreateFile(paramFileContent,paramFilePath) 作 用: 创建文件 参 数:paramFileContent 文件的内容 paramFilePath 文件名(不包括路径) 返回值:成功 true , 失败 false * Function CreateFile(paramFileContent,paramFilePath) On Err
11、or Resume Next Dim Fso,fWrite Set Fso = Server.CreateObject(Scripting.FileSystemObject) Set fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true) fWrite.write paramFileContent fWrite.close() Set fWrite = nothing Set Fso = nothing If Err.number 0 Then Err.clear() CreateFile = False Else Cre
12、ateFile = True End If End Function * 函数名:DelFile(FilePath) 作 用: 删除文件 参 数:FilePath 文件路径 多个文件用|隔开 返回值:成功 true , 失败 false * Function DelFile(FilePath) On Error Resume Next Dim fso,arrFile,i If GetSafeStr(FilePath,)= then CreateFolder = false Exit Function End If arrFile = Split(FilePath,|) Set Fso = Se
13、rver.CreateObject(Scripting.FileSystemObject) for i=0 to UBound(arrFile) FilePath = arrFile(i) If Fso.FileExists(Server.MapPath(FilePath) then Fso.DeleteFile Server.MapPath(FilePath) End If Next Set fso = nothing If Err then Err.clear() DelFile = false Else DelFile = true End If End Function * 函数名:D
14、elFolder(FolderPath) 作 用: 删除目录 参 数:FolderPath 目录路径 多个目录用|分隔 返回值:成功 true , 失败 false * Function DelFolder(FolderPath) On Error Resume Next Dim Fso,arrFolder,i If GetSafeStr(FolderPath,)= then DelFolder = false Exit Function End If arrFolder = Split(FolderPath,|) Set Fso = Server.CreateObject(Scripting
15、.FileSystemObject) For i=0 to UBound(arrFolder) FolderPath = arrFolder(i) If Fso.folderexists(Server.MapPath(FolderPath) then Fso.deleteFolder Server.MapPath(FolderPath) End If Next If Err then Err.clear() DelFolder = false ShowError 删除目录失败, else DelFolder = true End If End Function * 函数名:IsExistFil
16、e(FilePath) 作 用: 判断文件或目录是否存在 参 数:FilePath 文件路径 多个文件用|隔开 返回值:成功 true , 失败 false * Function IsExistFile(FilePath) On Error Resume Next Dim fso,arrFile,i If GetSafeStr(FilePath,)= then IsExistFile = false End If arrFile = Split(FilePath,|) Set Fso = Server.CreateObject(Scripting.FileSystemObject) for i
17、=0 to UBound(arrFile) FilePath = arrFile(i) If Fso.FileExists(Server.MapPath(FilePath) then IsExistFile = True End If If Fso.folderexists(Server.MapPath(FilePath) then IsExistFile = True End If Next Set fso = nothing If Err then Err.clear() IsExistFile = false ShowError 判断文件或目录是否存在失败, else IsExistFi
18、le = true End If End Function * 函数名:DelFile(FilePath) 作 用: 删除文件或目录 参 数:FilePath 文件路径 多个文件用|隔开 返回值:成功 true , 失败 false * Function DelFile(FilePath) On Error Resume Next Dim fso,arrFile,i If GetSafeStr(FilePath,)= then CreateFolder = false End If arrFile = Split(FilePath,|) Set Fso = Server.CreateObjec
19、t(Scripting.FileSystemObject) for i=0 to UBound(arrFile) FilePath = arrFile(i) If Fso.FileExists(Server.MapPath(FilePath) then Fso.DeleteFile Server.MapPath(FilePath) End If If Fso.folderexists(Server.MapPath(FilePath) then Fso.deleteFolder Server.MapPath(FilePath) End If Next Set fso = nothing If E
20、rr then Err.clear() DelFile = false ShowError 删除文件或目录失败, else DelFile = true End If End Function * 函数名:ReNameFile(oldName,newName) 作 用: 重命名文件或目录 参 数:strOldName 原文件名 多个用|隔开 strNewName 新文件名 多个用|隔开 上面两个参数请保持一致 返回值:成功 true , 失败 false * Function ReNameFile(strOldName,strNewName) On Error Resume Next Dim
21、fso,arrOld,arrNew,i,oldName,newName old = GetSafeStr(strOldName,) Newfile = GetSafeStr(strNewName,) If old = or Newfile = then ReNameFile = false Exit Function End If arrOld = Split(strOldName,|) arrNew = Split(strNewName,|) If UBound(arrOld) UBound(arrNew) then ReNameFile = false Exit Function End If Set Fso = Server.CreateObject(Scripting.FileSystemObject) for i=0 to UBound(arrOld) oldName = Server.MapPath(arrOld(i) newName = Server.MapPath(arrNew(i) If Fso.FileExists(oldName) and not Fso.FileExists(newName
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1