服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 用实现ASP批量删除目录及文件的代码

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

2019-10-13 12:55asp代码网 ASP教程

用实现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("目录名")  
%>

延伸 · 阅读

精彩推荐