asp中FSO复制文件代码
程序员文章站
2023-08-13 22:38:03
复制代码 代码如下:tempsource,tempend必须用绝对路径 rootpath=request.servervariables("appl_physical_pa...
复制代码 代码如下:
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