Die Codekopie lautet wie folgt:
Tempsource, Tempend müssen absolute Pfad verwenden
rootPath = request.servervariables ("appl_physical_path") 'Erhalten Sie den absoluten Pfad des aktuellen Programms
FunctionCopyfiles (tempsource, tempend)
Dimfso
Setfso = server.createObject ("scripting.filesystemObject")
IFFSO.FILEExists (Tempend) dann
Antwort.Write "Zielsicherungsdatei <B>" & Tempend & "</b> existiert bereits, bitte löschen Sie sie zuerst!"
Setfso = nichts
Ausgangsfunktion
Endif
IFFSO.FILEExists (Tempsource) dann
Anders
Response.write "Die Quelldatenbankdatei zu kopieren <b>" & tempsource & "</b> existiert nicht!"
Setfso = nichts
Ausgangsfunktion
Endif
Fso.copyFiletEmpsource, Tempend
Response.write "hat die Datei <b>" & tempsource & "</b> zu <b>" & tempend & "</b>" erfolgreich kopiert.
Setfso = nichts
Endfunktion