asp中FSO复制文件代码
摘要:复制代码代码如下:TempSource,TempEnd必须用绝对路径rootPath=Request.ServerVariables("AP...
复制代码 代码如下:
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
FSO.CopyFileTempSource,TempEnd
Response.Write"已经成功复制文件<b>"&TempSource&"</b>到<b>"&TempEnd&"</b>"
SetFSO=Nothing
EndFunction
【asp中FSO复制文件代码】相关文章:
★ ASP模板类代码
★ FSO一些代码
上一篇:
个性验证码的制作方法
下一篇:
asp复制文件夹代码