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

<%

'獲取幾級文件夾或文件名稱
arr=Split(Request.ServerVariables("SCRIPT_NAME"),"/")
wenjianjia_name=arr(2)
response.Write(wenjianjia_name&"
")

'文件所在文件夾名稱
cur_URL = Server.MapPath(".")
arr_curURL = split(cur_URL,"\")
len_arr = ubound(arr_curURL)
this_curURL= arr_curURL(len_arr) 
response.Write(this_curURL&"
")

'文件名稱
cur_URL = Request.ServerVariables("url")
arr_curURL = split(cur_URL,"/")
len_arr = ubound(arr_curURL)
this_curURL= arr_curURL(len_arr) 
response.Write(this_curURL&"
") 

folder="www.d2ksoft.com"'需要創建的文件夾名稱

Call createfolder(folder)

Function createfolder(folder)
set fs=createobject("scripting.filesystemobject")   
url=server.mappath(folder)    
if Not fs.folderexists(url)   then   
   fs.createfolder(url) 
   Response.write url&"創建成功！
"
else
 Response.write url&"存在！
"
end   if
End Function


'-------------------復制文件－－－－－－－－
TempSource= Server.MapPath("/yuzhiguo.jpg")'源文件
TempEnd=Server.MapPath(folder&"/yuzhiguo.jpg")'移動目標地
Call CopyFiles(TempSource,TempEnd) 

Function CopyFiles(TempSource,TempEnd) 
    Dim FSO 
    Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
IF FSO.FileExists(TempEnd) then 
       Response.Write "目標備份文件 " & TempEnd & " 已存在，請先刪除!
" 
       Set FSO=Nothing 
       Exit Function 
    End IF 
    IF FSO.FileExists(TempSource) Then 
    Else 
       Response.Write "要復制的源數據文件 "&TempSource&" 不存在!
" 
       Set FSO=Nothing 
       Exit Function 
    End If 
    FSO.CopyFile TempSource,TempEnd 
    Response.Write "已經成功復制文件 "&TempSource&" 到 "&TempEnd&"
" 
    Set FSO = Nothing 
End Function

'-------------------刪除文件夾－－－－－－－－
strFolder="www.d2ksoft.com"'需要刪除的文件夾名稱
Call DeleteFolder(strFolder)

Function DeleteFolder(strFolder)
   '首選判斷要建立的文件夾是否已經存在
    Dim strTestFolder, objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 檢查文件夾是否存在
    If objFSO.FolderExists(strTestFolder) Then
      objFSO.DeleteFolder(strTestFolder)
	  response.write "刪除成功！
"
    Else
      response.write "該文件夾不存在！"
    End If
    Set objFSO = Nothing
End Function
%>