La copie de code est la suivante:
<%
FunctionCopymyFolder (FolderName, FolderPath)
sfolder = server.mappath (foldername)
ofolder = server.mappath (FolderPath)
setfso = server.createObject ("scripting.filesystemObject")
iffso.folderexists (server.mappath (foldername)) alors "cochez si le dossier d'origine existe
iffso.folderexists (server.mappath (folderpath)) alors "cochez si le dossier cible existe
FSO.Copyfoldersfolder, Oftolder
Else'Destination Le dossier est créé s'il n'existe pas
CreateEnewfolder = server.mappath (FolderPath)
FSO.CreateFolder (Createnewfolder)
FSO.Copyfoldersfolder, Oftolder
Endire
CopyMyFolder = "Copier le dossier [" & server.mappath (FolderName) & "] à [" & server.mappath (FolderPath) & "] Successfulpy!"
Autre
CopyMyFolder = "Erreur, le dossier d'origine [" & Sfolde & "] n'existe pas!"
Endire
setfso = rien
Finition de fin
FolderName = "2006" 'Folder original
Folderpath = "2008" 'Dossier de destination
Response.Write "& CopyMyFolder (Foldername, Folderpath) &" 'Copier tous les contenus dans le dossier 2006 dans le dossier 2008 et renvoyer le résultat
%>