関数手順:
コードコピーは次のとおりです。
<%
'del.asp
dimfso、tmpfolder、tmpsubfolder、tmpfile、tmpfiles
setFSO = server.createObject( "Scripting.filesystemObject")
subdelfolder(spath)
if(fso.folderexists(server.mappath(spath)))then
setmpfolder = fso.getfolder(server.mappath(spath))
setmpfiles = tmpfolder.files
foreachtmpfileintmpfiles
fso.deletefile(tmpfile)
次
setmpsubfolder = tmpfolder.subfolders
foreachtmpfolderintmpsubfolder
Response.Writespath& "/"&tmpfolder.name& "<br>"
Delfolder(Spath& "/"&tmpfolder.name)
次
fso.deletefolder(server.mappath(spath))
endif
Endingub
%>
呼び出し方法:
コードコピーは次のとおりです。
<%
'例を呼び出します
'del.aspは、削除されるディレクトリと同じレベルに配置されます。削除されるディレクトリが存在し、その下にいくつかのサブディレクトリとファイルがあります。ディレクトリの変更権限が必要です。
delfolder( "ディレクトリ名")
%>