ASP FSO操作文件(复制文件、重命名文件、删除文件、替换字符串)

FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting 类型库 ()中，它同时包含了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=object("stemObject")

set oFile=e(h(sourceName))

=destName

Set oFso=Nothing

Set oFile=Nothing

End Function

删除文件：

Function FSOdel(fileName)

dim fso,f

set fso = Object("stemobject")

f=h(fileName)

if ists(f) then

File f,true

end if

set f = nothing

set fso = nothing

End Function

替换文件中的字符串:

Function FSOreplace(fileName,Target,repString)

Dim objFSO,objCountFile,FiletempData

Set objFSO = Object("stemObject")

Set objCountFile = xtFile(h(fileName),1,True)

FiletempData = l

FiletempData=Replace(FiletempData,Target,repString)

Set objCountFile=TextFile(h(fileName),True)

FiletempData

Set objCountFile=Nothing

Set objFSO = Nothing

End Function

<%

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

'函数名：CreateFolder(sPath)

'作 用: 创建目录

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

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

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

' 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 = Object("stemObject")

For i = 0 To Ubound(ArrFolder)

If i = 0 then

Folder = Folder & ArrFolder(i) & "/"

Else

Folder = Folder & ArrFolder(i) & "/"

End If

If Exists(h(Folder)) = False then

h(folder)

Folder(h(Folder))

End If

Next

Set Fso = nothing

If <> 0 then

()

CreateFolder = False

Else

CreateFolder = True

End If

End function

Function getFile(paramFilePath)

Set Fso = Object("stemObject")

Set Fso_Read =

xtFile(h(paramFilePath),1,false,-2)

getFile = Fso_l

Set Fso_Read = Nothing

Set Fso = Nothing

End Function

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

'函数名：CreateFile(paramFileContent,paramFilePath)

'作 用: 创建文件

'参 数：paramFileContent '文件的内容

' paramFilePath '文件名(不包括路径)

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

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

Function CreateFile(paramFileContent,paramFilePath)

On Error Resume Next

Dim Fso,fWrite

Set Fso = Object("stemObject")

Set fWrite =

TextFile(h(paramFilePath),true)

paramFileContent

()

Set fWrite = nothing

Set Fso = nothing

If <> 0 Then

()

CreateFile = False

Else

CreateFile = 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 = Object("stemObject")

for i=0 to UBound(arrFile)

FilePath = arrFile(i)

If ists(h(FilePath)) then

File h(FilePath)

End If

Next

Set fso = nothing

If Err then

()

DelFile = false

Else

DelFile = true

End If

End Function

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

'函数名：DelFolder(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 = Object("stemObject")

For i=0 to UBound(arrFolder)

FolderPath = arrFolder(i)

If exists(h(FolderPath)) then

Folder h(FolderPath)

End If

Next

If Err then

()

DelFolder = false

'ShowError "删除目录失败",""

else

DelFolder = true

End If

End Function

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

'函数名：IsExistFile(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 = Object("stemObject")

for i=0 to UBound(arrFile)

FilePath = arrFile(i)

If ists(h(FilePath)) then

IsExistFile = True

End If

If exists(h(FilePath)) then

IsExistFile = True

End If

Next

Set fso = nothing

If Err then

()

IsExistFile = false

'ShowError "判断文件或目录是否存在失败",""

else

IsExistFile = 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 = Object("stemObject")

for i=0 to UBound(arrFile)

FilePath = arrFile(i)

If ists(h(FilePath)) then

File h(FilePath)

End If

If exists(h(FilePath)) then

Folder h(FilePath)

End If

Next

Set fso = nothing

If Err then

()

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 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 = Object("stemObject")

for i=0 to UBound(arrOld)

oldName = h(arrOld(i))

newName = h(arrNew(i))

If ists(oldName) and not ists(newName)

then

le oldName,newName

'ReNameFile = True

End If

Next

Set fso = nothing

If <> 0 Then

()

ReNameFile = false

Else

ReNameFile = True

End If

End Function

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

'函数名：CopyFiles((TempSource,TempEnd)

'作 用: 复制文件或者目录

'参 数：TempSource '源文件名 多个用"|"隔开

' TempEnd '目的文件名 多个用"|"隔开

' 注意：上面两个参数请保持一致，并且都为完整路径，

' 已经经过h方法处理过

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

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

Function CopyFiles(TempSource,TempEnd)

On Error Resume Next

Dim CopyFSO,arrSource,arrEnd

CopyFiles = false

Set CopyFSO = Object("stemObject")

If TempSource ="" or TempEnd = "" then

ErrRaise "复制文件或目录","条件为空"

CopyFiles = false

Exit Function

End If

arrSource = Split(TempSource,"|")

arrEnd = Split(TempEnd,"|")

If UBound(arrSource) <> UBound(arrEnd) then

CopyFiles= false

Exit Function

End If

for i=0 to UBound(arrSource)

srcName = arrSource(i)

tarName = arrEnd(i)

IF ists(srcName) and not

ists(tarName) then

le srcName,tarName

CopyFiles = true

End If

IF Exists(srcName) and not

Exists(tarName)then

lder srcName,tarName

CopyFiles = true

End If

Next

Set CopyFSO = Nothing

If Err then

'()

CopyFiles = false

End If

End Function

%>