用实现asp批量删除目录及文件的代码
来源:
中文源码网 浏览:378 次 日期:2024-03-29 01:26:42
【下载文档: 用实现asp批量删除目录及文件的代码.txt 】
用实现ASP批量删除目录及文件的代码
函数过程: 复制代码 代码如下:<% '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&"
" delfolder(spath&"/"&tmpfolder.name ) next fso.DeleteFolder (server.MapPath (sPath)) end if end sub %> 调用方法: 复制代码 代码如下:<% '调用例子 'del.asp放到要删除的目录同一层,要删除的目录存在且其下有若干子目录和文件,要对该目录具有修改权限。 delfolder("目录名") %>