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

ing

If Err then
Err.clear()
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 = 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
If Fso.folderexists(Server.MapPath(FilePath)) then
Fso.deleteFolder Server.MapPath(FilePath)
End If
Next
Set fso = nothing

If Err 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 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) then
fso.MoveFile oldName,newName
''ReNameFile = True
End If
Next
Set fso = nothing

If Err.Number <> 0 Then
Err.clear()
ReNameFile = false
Else
ReNameFile = True
End If
End Function


''*******************************************************
''函数名：CopyFiles((TempSource,TempEnd)
''作 用: 复制文件或者目录
''参 数：TempSource ''源文件名 多个用"|"隔开
'' TempEnd ''目的文件名 多个用"|"隔开
'' 注意：上面两个参数请保持一致，并且都为完整路径，
'' 已经经过Server.MapPath方法处理过
''返回值：成功 true , 失败 false
''*******************************************************
Function CopyFiles(TempSource,TempEnd)
On Error Resume Next
Dim CopyFSO,arrSource,arrEnd

CopyFiles = false
Set CopyFSO = Server.CreateObject("Scripting.FileSystemObject")

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(