ASP FSO文件运作函数代码

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

<%

'*******************************************************

'函数名：CreateFolder(sPath)

'作 用: 创建目录

'参 数：sPath : 创建的相对目录路径

'返回值：成功 true , 失败 false

'*******************************************************

'response.Write createfolder("/dgsunshine/UploadFile/demo1/")

Function 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 = Split(sPath,"/")

Set Fso = Server.CreateObject("Scripting.FileSystemObject")

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!