asp中FSO复制文件代码
2018-09-06 10:34
阅读：661
复制代码 代码如下:
TempSource,TempEnd必须用绝对路径
rootPath=Request.ServerVariables(APPL_PHYSICAL_PATH)‘获取当前程序绝对路径
FunctionCopyFiles(TempSource,TempEnd)
DimFSO
SetFSO=Server.CreateObject(Scripting.FileSystemObject)
IFFSO.FileExists(TempEnd)then
Response.Write目标备份文件<b>&TempEnd&</b>已存在，请先删除!
SetFSO=Nothing
ExitFunction
EndIF
IFFSO.FileExists(TempSource)Then
Else
Response.Write要复制的源数据库文件<b>&TempSource&</b>不存在!
SetFSO=Nothing
ExitFunction
EndIf
Response.Write已经成功复制文件<b>&TempSource&</b>到<b>&TempEnd&</b>
SetFSO=Nothing
EndFunction
评论
亲，登录后才可以留言！