余志国网站设计工作室是专业从事义乌网站建设、义乌外贸网站建设、义乌网站制作、义乌网站设计的专业义乌网站建设工作室,是义乌外贸网站建设专家!

ASP获取文件所在文件夹名称、复制文件、创建、删除文件夹代码

分类:程序开发 Tags: asp 评论:0 浏览:4907 最近更新时间:2009/9/25 19:00:58

 
  1. <%
  2.  
  3. '获取几级文件夹或文件名称
  4. arr=Split(Request.ServerVariables("SCRIPT_NAME"),"/")
  5. wenjianjia_name=arr(2)
  6. response.Write(wenjianjia_name&"<br />")
  7.  
  8. '文件所在文件夹名称
  9. cur_URL = Server.MapPath(".")
  10. arr_curURL = split(cur_URL,"\")
  11. len_arr = ubound(arr_curURL)
  12. this_curURL= arr_curURL(len_arr) 
  13. response.Write(this_curURL&"<br />")
  14.  
  15. '文件名称
  16. cur_URL = Request.ServerVariables("url")
  17. arr_curURL = split(cur_URL,"/")
  18. len_arr = ubound(arr_curURL)
  19. this_curURL= arr_curURL(len_arr) 
  20. response.Write(this_curURL&"<br />"
  21.  
  22. folder="www.yuzhiguo.com"'需要创建的文件夹名称
  23.  
  24. Call createfolder(folder)
  25.  
  26. Function createfolder(folder)
  27. set fs=createobject("scripting.filesystemobject")   
  28. url=server.mappath(folder)    
  29. if Not fs.folderexists(url)   then   
  30.    fs.createfolder(url) 
  31.    Response.write url&"创建成功!<br />"
  32. else
  33.  Response.write url&"存在!<br />"
  34. end   if
  35. End Function
  36.  
  37.  
  38. '-------------------复制文件--------
  39. TempSource= Server.MapPath("/yuzhiguo.jpg")'源文件
  40. TempEnd=Server.MapPath(folder&"/yuzhiguo.jpg")'移动目标地
  41. Call CopyFiles(TempSource,TempEnd) 
  42.  
  43. Function CopyFiles(TempSource,TempEnd) 
  44.     Dim FSO 
  45.     Set FSO = Server.CreateObject("Scripting.FileSystemObject"
  46. IF FSO.FileExists(TempEnd) then 
  47.        Response.Write "目标备份文件 <b>" & TempEnd & "</b> 已存在,请先删除!<br />" 
  48.        Set FSO=Nothing 
  49.        Exit Function 
  50.     End IF 
  51.     IF FSO.FileExists(TempSource) Then 
  52.     Else 
  53.        Response.Write "要复制的源数据文件 <b>"&TempSource&"</b> 不存在!<br />" 
  54.        Set FSO=Nothing 
  55.        Exit Function 
  56.     End If 
  57.     FSO.CopyFile TempSource,TempEnd 
  58.     Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b><br />" 
  59.     Set FSO = Nothing 
  60. End Function
  61.  
  62. '-------------------删除文件夹--------
  63. strFolder="www.yuzhiguo.com"'需要删除的文件夹名称
  64. Call DeleteFolder(strFolder)
  65.  
  66. Function DeleteFolder(strFolder)
  67.    '首选判断要建立的文件夹是否已经存在
  68.     Dim strTestFolder, objFSO
  69.     strTestFolder = Server.Mappath(strFolder)
  70.     Set objFSO = CreateObject("Scripting.FileSystemObject")
  71.     ' 检查文件夹是否存在
  72.     If objFSO.FolderExists(strTestFolder) Then
  73.       objFSO.DeleteFolder(strTestFolder)
  74.       response.write "<font color=red>删除成功!</font><br />"
  75.     Else
  76.       response.write "<font color=red>该文件夹不存在!</font>"
  77.     End If
  78.     Set objFSO = Nothing
  79. End Function
  80. %>

本文地址:https://www.yuzhiguo.com/449/
  • 相关文章
  • 推荐文章
  • 最新文章
发表评论





您的IP:3.92.28.84,来自:

留言

 


免费咨询
建站咨询热线
15967985565

扫一扫微信咨询
QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email