asp递归删除文件夹及其子文件和子文件夹

Function DeleteFolderAll(Path)Dim Fso, ObjFolder, ObjFileSet Fso = Server.CreateObject("scripting.filesystemObject")For Each ObjFile in Fso.GetFolder(Path).FilesIf Replace (Lcase(Path & "\" & ObjFile.Name),"\\","\") <> Lcase(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) ThenFso.DeleteFile Path & "\" & ObjFile.NameEnd IFNextFor Each ObjFolder In Fso.GetFolder(Path).SubFolders '读取子目录ClearFile Path & "\" & ObjFolder.NameFso.DeleteFolder Path & "\" & ObjFolder.Name,trueNextFso.DeleteFolder Path,trueResponse.Write "ok"End Function