This is an example of deleting a non-empty catalog
'Test.asp' to delete you need to have modify access to the directory <% dim fso, tmpfolder, tmpsubfolder, tmpfile, tmpfilesset 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 ifend sub%> <%' call example 'test.asp Put it in wwwroot / down 'wwwroot / 1 / existence, and there are several subdirectories and files Delfolder ("1")%>
