Question

如何用ASP，删除指定UpLoadFile中的所有文件，并提示删除成功！

Answer 1

经脚本之家编辑测试如下：
<%
'del.asp
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
thename=tmpfile
fso.DeleteFile (tmpfile)
If Err.number=0 then
response.write thename&" <font color=red>文件删除成功</font><br>"
End if
next
set tmpsubfolder=tmpfolder.SubFolders
for each tmpfolder in tmpsubfolder
infoname=spath&"/"&tmpfolder.name
delfolder(spath&"/"&tmpfolder.name)
If Err.number=0 then
response.write infoname&" <font color=red>删除成功</font><br>"
End if
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
'调用例子
'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。
delfolder("JSON")
%>

追问

功能能实现，但这样把UpLoadFile文件夹也删除了，我想保留UpLoadFile文件夹，上面的代码如何修改？

追答

其实简单，最后新建一个文件夹就可以了
文件删除成功"
End if
next
set tmpsubfolder=tmpfolder.SubFolders
for each tmpfolder in tmpsubfolder
infoname=spath&"/"&tmpfolder.name
delfolder(spath&"/"&tmpfolder.name)
If Err.number=0 then
response.write infoname&" 删除成功"
End if
next
fso.DeleteFolder (server.MapPath(sPath))
fso.createfolder(server.MapPath(sPath))
end if
end sub
'调用例子
'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。
delfolder("JSON")
%>