删除目录文件的ASP代码实现

2009-8-10 09:54 585 0

摘要: 　　<%　　'del.asp　　dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles　　set fso=server.CreateObject("Scr...

关键词： spath DeleteFolder delfolder end tmpfolder MapPath server next name sub

　　<%　　'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("目录名")　　%>

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除