ASP经典代码,文件夹重命名代码学习_asp技巧_龙虎鹰师网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

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  【打印此页】  【关闭
全站连接N点 | 龙虎鹰师网安 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。龙虎鹰师网安服务器维护基地招商进行中!请QQ:29769479

footer  footer  互联网安全  footer