Example of deleting a non-empty directory using asp

This is an example of deleting a non-empty directory.
'Test. asp
'To delete a directory, you must have the permission to modify it.
<%
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

Delfolder (spath & "/" & tmpfolder. name)
Next
Fso. DeleteFolder (server. MapPath (sPath ))
End if
End sub
%>
<%
'Call example
Put 'test. asp under wwwroot.
'Wwwroot1 exists, and there are several subdirectories and files under the other
Delfolder ("1 ")
%>