La copie de code est la suivante:
Tempsource, Tempend doit utiliser le chemin absolu
rootpath = request.servervariables ("appl_physical_path") 'Obtenez le chemin absolu du programme actuel
FunctionCopyFiles (Tempsource, Tempend)
Dimfso
Setfso = server.createObject ("scripting.filesystemObject")
Iffso.fileexists (Tempend) puis
Response.Write "Target Backup File <b>" & Tempend & "</b> existe déjà, veuillez le supprimer d'abord!"
Setfso = rien
Sortie
Endire
Iffso.fileexists (tempsource) puis
Autre
Response.write "Le fichier de base de données source à copier <b>" & tempsource & "</b> n'existe pas!"
Setfso = rien
Sortie
Endire
Fso.copyfiletempsource, se traditionner
Response.Write "a copié avec succès le fichier <b>" & tempsource & "</b> à <b>" & tempend & "</b>"
Setfso = rien
Finition de fin