Procedimiento de función:
La copia del código es la siguiente:
<%
'Del.asp
DIMFSO, TMPFolder, TMPSUBFolder, TMPFILE, TMPFILES
setfso = server.createObject ("scripting.filesystemObject")
Subdelfolder (Spath)
If (fso.foldereRexists (server.mappath (spath))) luego
settmpfolder = fso.getfolder (server.mappath (spath))
settmpfiles = tmpfolder.files
foreachtmpFileIntmpFiles
fso.deletefile (tmpfile)
próximo
settmpsubfolder = tmpfolder.subfolders
foreachtmpFolderIntMpSubFolder
Response.WriteSpath & "/" & tmpfolder.name & "<br>"
Delfolder (spath & "/" & tmpfolder.name)
próximo
FSO.DeleteFolder (Server.Mappath (Spath))
endif
Endsub
%>
Método de llamadas:
La copia del código es la siguiente:
<%
'Ejemplo de llamada
'Del.asp se coloca en el mismo nivel que el directorio que se eliminará. Existe el directorio que se eliminará y hay varios subdirectorios y archivos debajo de él. Debe tener permisos de modificación para el directorio.
Delfolder ("Nombre del directorio")
%>