ASP删除文件夹，不用遍历，直接删除文件夹，就可以连同里面的文件全部删除。

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.FOLDERExists(server.MapPath("/ceshi/")) then
    fso.DeleteFolder(server.MapPath("/ceshi/"))

end if
Set fso = Nothing