asp中FSO复制文件代码

　　TempSource,TempEnd必须用绝对路径

　　rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH")  ‘获取当前程序绝对路径

　　Function CopyFiles(TempSource,TempEnd)

　　Dim FSO

　　Set FSO = Server.CreateObject("Scripting.FileSystemObject")

　　IF FSO.FileExists(TempEnd) then

　　Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!"

　　Set FSO=Nothing

　　Exit Function

　　End IF

　　IF FSO.FileExists(TempSource) Then

　　Else

　　Response.Write "要复制的源数据库文件 <b>"&TempSource&"</b> 不存在!"

　　Set FSO=Nothing

　　Exit Function

　　End If

　　FSO.CopyFile TempSource,TempEnd

　　Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"

　　Set FSO = Nothing

　　End Function