ASP FSO文件操作函数代码（复制文件、重命名文件(2)

<%
 Function CreateMultiFolder(ByVal CFolder) 
        Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder 
        Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo 
        BlInfo = False 
        CreateFolder = CFolder 
        On Error Resume Next 
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
        If Err Then 
            Err.Clear() 
            Exit Function 
        End If 
        If Right(CreateFolder, 1) = "/" Then 
            CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) 
        End If 
        CreateFolderArray = Split(CreateFolder, "/") 
        For i = 0 To UBound(CreateFolderArray) 
            CreateFolderSub = "" 
            For ii = 0 To i 
                CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/" 
            Next 
            PhCreateFolderSub = Server.MapPath(CreateFolderSub) 
            If Not objFSO.FolderExists(PhCreateFolderSub) Then 
                objFSO.CreateFolder(PhCreateFolderSub) 
            End If 
        Next 
        If Err Then 
            Err.Clear() 
        Else 
            BlInfo = True 
        End If 
        CreateMultiFolder = BlInfo 
End Function
'自动创建多极目录
'code by jb51 reterry
function createit(path)
dim fsofo,cinfo,thepath,thepatharray
dim i,ii,binfo
binfo=false
thepath=path
set fsofo=createobject("scripting.filesystemobject")
if err then
err.clear
exit function
end if
thepath=replace(thepath,"\","/")
if left(thepath,1)="/" then
thepath=right(thepath,len(thepath)-1)
end if
if right(thepath,1)="/" then
thepath=left(thepath,len(thepath)-1)
end if
thepatharray=split(thepath,"/")
for i=0 to ubound(thepatharray)
createfoldersub1=createfoldersub1&thepatharray(i)&"/"
createfoldersub=server.mappath(createfoldersub1)
if not fsofo.folderexists(createfoldersub) then
fsofo.createfolder(createfoldersub)
end if
next
if err then
err.clear
else
binfo=true
end if
createit=binfo
end function

createit("/202004/tools/")
%>

Function getFile(paramFilePath) 
Set Fso = Server.CreateObject("Scripting.FileSystemObject") 
Set Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),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