A cópia do código é a seguinte:
Tempsource, tempend deve usar o caminho absoluto
rootpath = request.Servervariables ("Appl_physical_path") 'Obtenha o caminho absoluto do programa atual
FunctionCopyFiles (tempsource, tempend)
Dimfso
Setfso = server.createObject ("scripting.filesystemobject")
Iffso.fileExists (tempend) Então
Response.Write "Arquivo de backup de destino <b>" & tempend & "</b> Já existe, exclua -o primeiro!"
Setfso = nada
Saída de saída
Endif
Iffso.FileExists (Tempsource) então
Outro
Response.Write "O arquivo de banco de dados de origem a ser copiado <b>" & tempsource & "</b> não existe!"
Setfso = nada
Saída de saída
Endif
Fso.copyFiletemPSource, Tempend
Response.Write "Copiou com sucesso o arquivo <b>" & tempsource & "</b> para <b>" & tempend & "</b>"
Setfso = nada
Função final