<%
dim fso,fd1,fd2
set fso = Server.CreateObject("Scripting.FileSystemObject")
fd1=server.MapPath("10-04-1")
fd2=server.MapPath("10-04-2")
If Not fso.FolderExists(fd1) Then
	fso.CreateFolder (fd1)
	response.Write("现在创建文件夹")&"<br>"
else
	fso.CopyFolder fd1,fd2 
	response.Write("现在复制文件夹")&"<br>"
End If
%>



