La copia del código es la siguiente:
Tempsource, Tempend debe usar la ruta absoluta
rootPath = request.serverVariAnbles ("Appl_physical_path") 'Obtenga la ruta absoluta del programa actual
FunctionCopyFiles (TempSource, Tempend)
Dimfso
Setfso = server.createObject ("scripting.filesystemObject")
Iffso.fileExists (tempend) entonces
Response.Write "Archivo de copia de seguridad de Target <b>" & Tempend & "</b> Ya existe, ¡elimínelo primero!"
Setfso = nada
Extinción
Endif
Iffso.fileExists (templource) entonces
Demás
Response.write "El archivo de base de datos de origen se copiará <b>" & TempSource & "</b> ¡No existe!"
Setfso = nada
Extinción
Endif
FSO.CopyFiletEmpSource, Tempend
Response.Write "ha copiado con éxito el archivo <b>" & TempSource & "</b> a <b>" & Tempend & "</b>"
Setfso = nada
Función final