<nav id="tk751"></nav>

      1. <input id="tk751"></input>
          <ins id="tk751"></ins>

        1. 余志國網站設計工作室是專業從事義烏網站建設、義烏外貿網站建設、義烏網站制作、義烏網站設計的專業義烏網站建設工作室,是義烏外貿網站建設專家!

          ASP獲取文件所在文件夾名稱、復制文件、創建、刪除文件夾代碼

          分類:程序開發 Tags: asp 評論:0 瀏覽:5193 最近更新時間: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.d2ksoft.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.d2ksoft.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. %>

          本文地址:/449/
          • 相關文章
          • 推薦文章
          • 最新文章

          留言

           


          免費咨詢
          建站咨詢熱線
          15967985565

          掃一掃微信咨詢
          QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email
          西西人体大胆瓣开下部毛茸茸,再猛点深使劲爽免费观看,1000部做羞羞事禁片免费视频网站,再猛点深使劲爽免费观看