Salinan kode adalah sebagai berikut:
Tempsource, Tempend harus menggunakan jalur absolut
rootpath = request.serverVariable ("appl_physical_path") 'Dapatkan jalur absolut dari program saat ini
FunctionCopyFiles (Tempsource, Tempend)
Dimfso
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
Iffso.fileexists (Tempend) lalu
Response.write "File cadangan target <b>" & Tempend & "</b> sudah ada, tolong hapus dulu!"
Setfso = tidak ada
Fungsi keluar
Endif
Iffso.fileexists (Tempsource) lalu
Kalau tidak
Response.write "File basis data sumber yang akan disalin <b>" & Tempsource & "</b> tidak ada!"
Setfso = tidak ada
Fungsi keluar
Endif
Fso.copyfiletempsource, Tempend
Response.write "telah berhasil menyalin file <b>" & Tempsource & "</b> ke <b>" & Tempend & "</b>"
Setfso = tidak ada
Fungsi endfungsi