復制代碼 代碼如下: 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
