La copia del código es la siguiente:
<%
FunctionCopymyFolder (FolderName, FolderPath)
sfolder = server.mappath (nombre de plegable)
ofolder = server.mappath (FolderPath)
setfso = server.createObject ("scripting.filesystemObject")
iffso.foldereRexists (server.mappath (folderName)) entonces'check si existe la carpeta original
iffso.foldereRexists (server.mappath (folderPath)) entonces, check si la carpeta de destino existe
FSO.CopyFolderfolder, Ofolder
La carpeta Destinación de lo contrario se crea si no existe
Createenewfolder = server.mappath (FolderPath)
FSO.CreateFolder (CreateNewFolder)
FSO.CopyFolderfolder, Ofolder
Endif
Copymyfolder = "Copie la carpeta [" & Server.Mappath (FolderName) & "] a [" & Server.Mappath (FolderPath) & "] ¡correctamente!"
Demás
¡CopyMyFolder = "Error, la carpeta original [" & sfoldee & "] no existe!"
Endif
setfso = nada
Función final
FolderName = "2006" 'Carpeta original
Carpeta de carpeta = "2008" 'Carpeta de destino
respuesta
%>