ASP经典代码,文件夹重命名代码学习_asp技巧_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN
  • 网站地图地图
  • 最新更新更新
  • 订阅中心订阅
  • 标签标签

    • 专业服务器维护管家

    网站维护 - (800元/次，2800元/月起) QQ:29769479 -
      整站搜索:

    ASP经典代码,文件夹重命名代码学习

    作者：黑客防线网安ASP教程网 来源：黑客防线网安ASP教程网 浏览次数：0

    本篇关键词：ASP代码文件夹
    黑客防线网安网讯：C/C++ Code复制内容到剪贴板 龙虎鹰师网安ASP教程网|http://www.rongsen.com.cn
    C/C++ Code复制内容到剪贴板
    1. <%  
    2.   
    3. Name1="原文件名"  
    4. Name2="目标文件名"  
    5.   
    6. if Name1<>"" and Name2<>"" then  
    7.   
    8. Sub RenameFolder(ByVal strFolderPath, ByVal strNewName)  
    9.   
    10. Dim objFileSystem  
    11. Set objFileSystem=Server.CreateObject("Scripting.FileSystemObject")  
    12.   
    13. ' 如果路径不包含冒号, 则认为 strFolderPath 是虚拟路径. 
    14. ' 故调用 Server.MapPath() 方法将此路径转为绝对路径  
    15. If Instr(1,strFolderPath,":")=-1 Then  
    16. strFolderPath=Server.MapPath(strFolderPath)  
    17. End If  
    18.   
    19. Dim objFolder  
    20. Set objFolder=objFileSystem.GetFolder(strFolderPath)  
    21. objFolder.Name=strNewName  
    22.   
    23. Set objFolder=nothing  
    24. Set objFileSystem=nothing  
    25.   
    26. End Sub  
    27.   
    28. RenameFolder Server.MapPath(Name1),Name2  
    29. response.write "已经成功地把 "+Name1+" 更名为 "+Name2+" ！"  
    30.   
    31. end if  
    32.   
    33. %>  

        黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-19657-1.html
    网站维护教程更新时间:2013-03-18 16:17:33  【打印此页】  【关闭】
    上一篇：ASP无法更新ACCESS数据库解决方法
    下一篇：数据库连接出错，请检查Conn.asp文件中的数据库参数设置的解决办法
    我要申请本站：N点 | 黑客防线官网 |  
    专业服务器维护及网站维护手工安全搭建环境，网站安全加固服务。黑客防线网安服务器维护基地招商进行中！QQ:29769479
    关于我们|新闻中心|业务范围|付款方式|购买流程|整站搜索|服务器软件必备|友情链接|在线反馈|网站地图|

    footer  footer  footer  footer