Procedimento de função:
A cópia do código é a seguinte:
<%
'Del.asp
Dimfso, tmpFolder, tmpsubFolder, tmpfile, tmpfiles
setfso = server.createObject ("scripting.filesystemobject")
Subdelfolder (Spath)
If (fso.olderexists (server.mappath (spath))) então
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 chamada:
A cópia do código é a seguinte:
<%
'Ligue para o exemplo
'Del.asp é colocado no mesmo nível que o diretório a ser excluído. O diretório a ser excluído existe e existem vários subdiretos e arquivos sob ele. Você deve ter permissões de modificação para o diretório.
Delfolder ("Nome do diretório")
%>