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

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. %>