FSO文件对象介绍及常用函数

187 阅读 0 评论 124 点赞

我是靠谱客的博主平常香烟，最近开发中收集的这篇文章主要介绍FSO文件对象介绍及常用函数，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象，用来操作文件和文件夹十分方便。

FSO文件（File）对象属性

属性说明
DateCreated 返回该文件夹的创建日期和时间
DateLastAccessed 返回最后一次访问该文件的日期和时间
DateLastModified 返回最后一次修改该文件的日期和时间
Drive 返回该文件所在的驱动器的Drive对象
Name 设定或返回文件的名字
ParentFolder 返回该文件的父文件夹的Folder对象
Path 返回文件的绝对路径，可使用长文件名
ShortName 返回DOS风格的8.3形式的文件名
ShortPath 返回DOS风格的8.3形式的文件绝对路径
Size 返回该文件的大小（字节）
Type 如果可能，返回一个文件类型的说明字符串

FSO文件（File）对象方法

FSO文件对象方法用途
CopyFile 拷贝一个或者多个文件到新路径
CreateTextFile 创建文件并且返回一个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=Nothing  
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)  
 Dim 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.CreateTextFile(Server.MapPath(fileName),True)  
 objCountFile.Write FiletempData  
 objCountFile.Close  
 Set objCountFile=Nothing  
 Set objFSO = Nothing  
End Function