<%
function DeleteFolder(Folder) 
on error resume next  
Folder=server.MapPath(Folder) 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
if FSO.FolderExists(Folder) then  
  FSO.Deletefolder Folder,true 
end if 
if err>0 then  
  err.clear 
  Deletefolder=False 
else  
  Deletefolder=True 
end if  
end function
%>
<%DeleteFolder("要删除的文件夹名")%>

推荐您阅读更多有关于“”的文章