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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!