A cópia do código é a seguinte:
<%
FunctionCopymyFolder (Nome da Foldern, FolderPath)
sfolder = server.mappath (nome de pastagem)
Ofolder = server.mappath (FolderPath)
setfso = server.createObject ("scripting.filesystemobject")
iffso.oldErexists (server.mappath (nome de pastagem)) então verifique se a pasta original existir
iffso.Polderexists (Server.mappath (FolderPath)) então verifique se a pasta de destino existir
fso.copyFoldersFolder, ofolder
Else 'Destinação Pasta é criada se não existir
CreateNewFolder = Server.mappath (FolderPath)
fso.createfolder (createnewfolder)
fso.copyFoldersFolder, ofolder
Endif
CopymyFolder = "Copie a pasta [" & Server.mappath (Foldername) & "] para [" & Server.mappath (FolderPath) & "] com sucesso!"
Outro
Copymyfolder = "Erro, a pasta original [" & solde & "] não existe!"
Endif
setfso = nada
Função final
FoldName = "2006" 'Pasta original
FolderPath = "2008" 'Pasta de destino
Response.Write "& CopymyFolder (Foldername, FolderPath) &" "" Copie todos os conteúdos na pasta 2006 para a pasta 2008 e retorne o resultado
%>