恳求FSO 读取空间某个目录下的文件，并在读取到的文件后面添加一个删除，点击同时删除这个文件
例如读取到
20148
15151059359
.txt
就在20148
15151059359
.txt后面添加一个删除，点击后就能同时删除空间文件夹里的这个文件。
已经百度一整天无法解决，求高手指教，谢谢！

百度搜索 fso 遍历 删除

<%
folderspec=server.MapPath("/hao") *服务器相对路径.
Dim fso,f,f1,fc,s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = f1.name
response.Write ("<a href=*/hao/"&s&"* target=*_blank*>"&s&"</a><br>") *路径是相对服务路径修改
Next
%>