关闭

asp中FSO复制文件代码

标签: aspfunction数据库path
349人阅读 评论(0) 收藏 举报
分类:

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1101603次
    • 积分:15523
    • 等级:
    • 排名:第693名
    • 原创:866篇
    • 转载:4篇
    • 译文:0篇
    • 评论:13条
    最新评论