用实现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&"<br>"
delfolder(spath&"/"&tmpfolder.name )
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
%>

调用方法:
复制代码 代码如下:

<%
'调用例子
'del.asp放到要删除的目录同一层,要删除的目录存在且其下有若干子目录和文件,要对该目录具有修改权限。
delfolder("目录名")
%>



相关阅读:
DIV+CSS 网页布局心得
鼠标移动到某个单元格上后,整个列都变色的实现方法
利用存储过程得到某一指定的表与其它的表之间的外键关系
asp.net ListView 数据绑定
数据库设计中的14个常用技巧
VBS教程:函数-Asc 函数
一次Oracle数据库冷备份恢复过程
在Oracle中创建索引时要做到三个适当
CSS实例教程:非浮动区域设置宽度
java获得指定日期的前一天,后一天的代码
asp.net dataview做无限极分类的又一用法
实现SQL Server故障转移群集(二)
MSSQL数据库镜像在Oracle中是如何实现的
PHP 创建文件(文件夹)以及目录操作代码
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4