asp遞歸刪除文件夾及其子文件和子文件夾

Function DeleteFolderAll(Path)
Dim Fso, ObjFolder, ObjFile
Set Fso = Server.CreateObject("scripting.filesystemObject")
For Each ObjFile in Fso.GetFolder(Path).Files
If Replace (Lcase(Path & "\" & ObjFile.Name),"\\","\") <> Lcase(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) Then
Fso.DeleteFile Path & "\" & ObjFile.Name
End IF
Next
For Each ObjFolder In Fso.GetFolder(Path).SubFolders '讀取子目錄
ClearFile Path & "\" & ObjFolder.Name
Fso.DeleteFolder Path & "\" & ObjFolder.Name,true
Next
Fso.DeleteFolder Path,true
Response.Write "ok"
End Function