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

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(i)
IF CopyFSO.FileExists(srcName) and not CopyFSO.FileExists(tarName) then
CopyFSO.CopyFile srcName,tarName
CopyFiles = true
End If

IF CopyFSO.FolderExists(srcName) and not CopyFSO.FolderExists(tarName)then
CopyFSO.CopyFolder srcName,tarName
CopyFiles = true
End If
Next
Set CopyFSO = Nothing

If Err then
'Err.clear()
CopyFiles = false
End If
End Function
%>

您可能感兴趣的文章:

PHP文件操作实现代码分享Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)Javascript之文件操作Javascript----文件操作jsp文件操作之读取篇jsp文件操作之追加篇jsp文件操作之写入篇用实现ASP批量删除目录及文件的代码 asp FSO文件浏览器 v1.0