服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp中FSO复制文件代码

asp中FSO复制文件代码

2019-10-27 10:55asp代码网 ASP教程

asp中FSO复制文件代码

代码如下:


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 

延伸 · 阅读

精彩推荐