asp中FSO复制文件代码
发布时间:2021-09-25 00:00| 有 位朋友查看
简介:复制代码 代码如下: TempSource,TempEnd必须用绝对路径 rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH")‘获取当前程序绝对路径 FunctionCopyFiles(TempSource,TempEnd) DimFSO SetFSO=Server.CreateObject("Scripting.FileSystemObject") IFFSO.Fi……
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
原文链接:https://m.jb51.net/article/5926.htm
本站部分内容转载于网络,版权归原作者所有,转载之目的在于传播更多优秀技术内容,如有侵权请联系QQ/微信:153890879删除,谢谢!