ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串）

mFilePath),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 Error 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
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 = Server.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

''*******************************************************
''函数名：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 = Server.CreateObject("Scripting.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


''*******************************************************
''函数名：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 = Server.CreateObject("Scripting.FileSystemObject")

for i=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 = noth