函数过程： 复制代码 代码如下:<% 'del.asp dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles set fso=server.CreateObject("Scripting.FileSystemObject") sub delfolder(sPath) If (fso.FolderExists(server.MapPath (sPath))) then set tmpfolder=fso.GetFolder(server.MapPath (sPath)) set tmpfiles=tmpfolder.files for each tmpfile in tmpfiles fso.DeleteFile (tmpfile) next set tmpsubfolder=tmpfolder.SubFolders for each tmpfolder in tmpsubfolder response.Write spath&"/"&tmpfolder.name&"<br>" delfolder(spath&"/"&tmpfolder.name ) next fso.DeleteFolder (server.MapPath (sPath)) end if end sub %> 调用方法： 复制代码 代码如下:<% '调用例子 'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。 delfolder("目录名") %>

　　推荐阅读

　　[教程+分享]具有良好体验度的Web注册系统

*项目名称:具有良好体验度的Web注册系统 *作者:草履虫 *联系:caolvchong@gmail.com *时间:2007-6-29 *起因和版权说明: 1.蓝色理想上有位会员发布了个类似的系统,提问说验证码不支持firefox的刷新,于是萌生念头做一>>>详细阅读

本文标题：用实现ASP批量删除目录及文件的代码

地址：http://www.17bianji.com/kaifa2/ASP/32529.html

 1/2    1