Asp copy folder code

Copy codeThe Code is as follows: <%
Function CopyMyFolder (FolderName, FolderPath)
SFolder = server. mappath (FolderName)
OFolder = server. mappath (FolderPath)
Set fso = server. createobject ("scripting. filesystemobject ")
If fso. folderexists (server. mappath (FolderName) then' check whether the original folder exists
If fso. folderexists (server. mappath (FolderPath) then' check whether the target folder exists
Fso. copyfolder sFolder, oFolder
Else 'create the target folder if it does not exist
CreateNewFolder = Server. Mappath (FolderPath)
Fso. CreateFolder (CreateNewFolder)
Fso. copyfolder sFolder, oFolder
End if
CopyMyFolder = "copying a folder [" & server. mappath (FolderName) & "] to [" & server. mappath (FolderPath) & "] succeeded! "
Else
CopyMyFolder = "error. The original folder [" & sFolde & "] does not exist! "
End If
Set fso = nothing
End Function
FolderName = "2006" 'original folder
FolderPath = "2008" 'destination folder
Response. write "" & CopyMyFolder (FolderName, FolderPath) & "'Copy all the content in folder 2006 to the 2008 folder and return the result
%>