作家
登录

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

作者: 来源:www.28hudong.com 2013-03-30 08:39:20 阅读 我要评论

函数过程: 复制代码 代码如下:<% '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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)